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ABSTRACT 


This  effort  explores  the  design  requirements  for  an  expert  translator 
to  be  used  as  an  interface  between  present  Computer  Aided  Design  (CAD) 
and  Computer  Aided  Manufacturing  (CAM)  systems.  The  translator's  purpose 
is  to  perform  certain  standards  checks  on  the  design  data  and  pass 
assembly  information  as  well  as  material  requirements  from  CAD  to  CAM. 
An  example  translator  was  implemented  for  a  simple  one  room  house 
construction  problem  using  the  artificial  intelligence  language  Prolog. 

This  research  is  part  of  an  effort  to  design  a  generic  Computer  Integrated 
Manufacturing  System  in  which  the  design  through  manufacturing  process 
is  totally  automated. 
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1.  INTRODUCTION 

In  the  not  too  distant  future,  most  factories  will  be  using  an 
integrated,  computer  aided,  design  and  manufacturing  system.  There  has 
already  been  much  work  performed  in  Computer  Aided  Design  (CAD)  and 
Computer  Aided  Manufacturing  (CAM)  techniques.  Although  definitions  may 
vary  slightly,  Ness  [Ref.  1]  defines  CAD  and  CAM  as  follows: 

Computer  Aided  Design  is  the  application  of  computer  technology  to  the 
design  of  a  product.  This  includes  layouts,  detail  design,  analysis, 
drafting  ana  formal  release  of  design  data. 

Computer  Aided  Manufacturing  is  the  application  of  computer 
technology  to  the  fabrication,  assembly  and  verification  of  a  product 
that  does  not  depend  on  and  cannot  productively  use  specific  lAD  data. 

Expanding  on  the  above  concepts,  the  CAD  process  consists  of  product 
specification  and  design.  CAD  may  aliow  for  product  simulation  and 
performance  analysis  using  computer  models.  Some  pre-manufacturing 
testing  may  also  be  performed.  Product  layouts  may  be  generated. 
Increased  interest  recently  has  been  focused  on  the  use  of  interactive 
graphics  with  CAD;  Beeby  [Ref.  2]  discusses  this  issue  as  applied  to  the 
construction  of  the  Boeing  767  airplane.  Interactive  graphics  systems 
allowed  the  designers  of  the  Boeing  767  to  interact  with  the  design 
system  and  data  in  real  time.  In  addition,  some  design  changes  were 
automatically  propagated  through  the  entire  design  relieving  the  designer 
of  the  update  responsibility.  Beeby  [Ref.  2]  cites  as  an  example  that 
changes  made  to  the  thickness  of  the  spar  chord  in  the  wing  of  the  Boeing 
767  produced  automatic  changes  in  related  items  such  as  ribs  and  clips 
without  designer  intervention. 
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To  expand  on  the  CAM  process,  it  is  only  necessary  to  look  at  some  of 
the  methods  presently  used  in  the  manufacture  of  the  Boeing  767. 
Computer  aided  tools  locate,  drill  and  fasten  wing  spars.  Robots  handle 
sanding  and  painting  tasks.  A  self-propelled  drilling  unit  travels  through 
the  interior  of  the  plane  drilling  the  more  than  eight  thousand  holes  that 
are  required  for  seat  installation. 

However,  it  is  the  lack  of  integration  of  the  design  data  produced  by 
CAD  into  the  manufacturing  process  handled  by  CAM  that  is  our  primary 
concern.  The  future  goal  is  to  build  factories  in  which  a  network  of 
computer  systems  is  used  to  support  product  design,  planning  and 
manufacture  and  thus  facilitate  faster  and  more  economical  production 
[Ref.  3].  Current  CAD  and  CAM  systems  are  primarily  independent  and  thus 
unable  to  effectively  communicate  with  each  other.  One  solution  to  this 
problem  is  to  define  a  standard  data  format  which  will  be  accessible  to 
both  CAD  and  CAM.  With  a  standardized  data  format,  future  CAD  and  CAM 
systems,  which  are  built  to  use  the  format,  will  be  able  to  communicate 
with  each  other  freely. 

For  example,  Boeing  Commercial  Airplane  Company  (BCAC)  has 
introduced  a  standard  geometric  data  format  as  part  of  its  CAD/CAM 
Integrated  Information  Network  that  has  now  become  the  framework  for 
the  Initial  Graphics  Exchange  Specification  (IGES)  [Ref.  4).  More  recently, 
the  International  Organization  for  Standardization  (ISO)  has  been 
developing  the  Programmer's  Hierarchical  Interactive  Graphics  System 
(Phigs)  standard  which  is  based  partially  on  the  Graphical  Kernal  System 
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(GKS).  Both  of  these  systems  demonstrate  the  intense  interest  in  forcing 
standardization  of  data. 

Another  solution  to  the  communication  probiem  between  CAD  and  CAM 
is  to  design  a  communications  interface  that  could  be  used  with  current 
CAD  and  CAM  systems  with  little  change  in  their  structure.  The  advantage 
to  this  method  is  there  is  no  massive  redesign  of  CAD  and  CAM  systems 
required  to  meet  the  requirements  of  a  new  standard  data  format. 

The  purpose  of  this  research  is  to  define  the  software  and  data 
requirements  that  are  necessary  to  integrate  CAD  and  CAM  into  a  fully 
compatible  system  by  the  use  of  such  an  interface.  We  shall  call  this  a 
Computer  Integrated  Manufacturing  System.  The  interface  will  consist  of 
an  expert  system  translator  used  to  link  the  CAD  output  data  and  CAM 
input  data.  An  example  translator  will  be  presented  and  discussed.  This 
translator  will  be  an  enhanced  version  of  the  translator  first  presented  in 
[Ref.  5). 
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il.  Background 

The  Expert  System  Shell  Translator  design  to  be  proposed  in  this  paper 
will  be  based  on  the  concepts  of  Computer  Integrated  Manufacturing  (C1M) 
as  described  in  [Ref.  5].  CIM  can  be  defined  as  the  use  of  integrated 
computer  systems  to  automate  the  manufacturing  of  an  item  starting  with 
design  and  continuing  through  final  production  [Ref.  6].  Two  portions  of 
any  future  CIM  computer  system  that  are  widely  used  today  are  Computer 
Aided  Design  (CAD)  and  Computer  Aided  Manufacturing  (CAM). 

With  the  introduction  of  the  minicomputer  and  the  increasing  power  of 
the  microcomputer,  significant  gains  have  been  made  in  designer 
productivity  and  accurracy  [Ref.  7].  In  addition,  newer  CAD  systems  even 
allow  simulation  and  performance  analysis.  Similar  gains  are  being  made  in 
CAM  with  the  advances  in  sensor  technology,  computer  controlled  robot 
devices  and  numerically  controlled  machines.  Examples  of  numerically 
controlled  machines  are  the  tube  bending  digitizers  that  automatically 
measure  and  record  hydraulic  tube  shapes  and  then  perform  multiple  tube 
bends  during  the  construction  of  the  Boeing  767  [Ref.  2).  What  is  currently 
missing  is  a  link  between  CAD  and  CAM  to  allow  data  transfer  from  one  to 
the  other  thus  allowing  a  completely  automated  factory.  In  an  ideal 
factory,  a  product  would  be  designed  using  CAD  and  then  the  design  would 
automatically  be  transformed  into  a  final  product  with  very  little  human 
intervention.  To  even  approach  such  an  ideal,  a  communications  path  must 
be  established  between  CAD  and  CAM.  Figure  I  shows  how  an  Expert 
System  Shell  Translator  would  be  used  to  fill  this  gap. 
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An  example  expert  translator  system  was  proposed  and  partially 
implemented  in  (Ref.  5]  for  the  construction  of  a  house.  In  this  paper,  we 
will  enhance  the  translator  to  demonstrate  its  feasability  using  a  more 
realistic  product  design.  In  addition,  proposed  data  models  for  CAD  output 
3nd  CAM  input  as  suggested  in  [Ref.  5)  will  be  refined  as  necessary  to 
facilitate  the  enhancement. 


Figure  1 .  Relationship  of  Expert  System  Shell  Translator 
interface  to  CAD  and  CAM. 

There  are  at  least  two  reasons  for  developing  the  technology  to 
integrate  current  CAD  and  CAM  systems  rather  than  starting  over  with  a 
fully  integrated  C1M  system  from  scratch  [Ref.  81.  First,  low  level 
manufacturing  equipment  will  most  likely  be  produced  by  a  varied 
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assortment  of  manufacturers  and  will  require  different  hardware  and 
software  for  control.  Second,  factories  that  are  interested  in  increasing 
automation  will  be  more  likely  to  add  to  existing  equipment  to  reduce 
costs.  They  cannot  afford  to  keep  up  with  the  latest  in  technology  and 
abandon  their  previous  investments.  Each  of  these  component  systems  can 
be  expected  to  have  a  wide  variety  of  data  management  systems. 
Therefore,  an  easily  adaptive  C1M  system  structure  is  required  to  handle 
these  differences.  The  translator  provides  that  adaptability  by  providing 
the  interface  necessary  to  link  the  various  CAD  and  CAM  systems  already 
in  use. 
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111. 


Data  Output  Specification  for  Computer  Aided  Design 

Figure  2  shows  the  necessary  processing  and  generation  of  data 
performed  by  CAD. 


Figure  2.  Processing  of  data  during  Computer  Aided  Design. 


Using  both  the  conceptual  schema  and  the  data  model  as  input.  CAD 
generates  a  design  schema  and  the  corresponding  design  data  for  the 
product  to  be  manufactured.  The  conceptual  schema  provides  the 
hierarchical  part_of  relationships  while  the  data  model  acts  as  a  guide 
for  the  CAD  process. 

A.  CONCEPTUAL  SCHEMA 

Most  of  our  discussion  in  this  section  will  center  on  the  proposed 
format  for  the  design  data  but  first  lets  examine  a  sample  conceptual 
schema.  Figure  3  is  the  conceptual  schema  for  a  generic  house 
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construction  application.  The  conceptual  schema  provides  CAD  with  the 
hierarchical  part_of  relationships  between  primitive  types  from  which 
composite  objects  can  be  built.  Each  block  in  the  conceptual  schema 
represents  a  different  primitive. 


floorplan 


exterior 


Figure  3.  Conceptual  Scheme  for  e  generic  house. 


Each  part,  real  or  abstract,  of  a  final  product  house  would  correspond 
to  an  instantiation  of  some  primitive,  instantiation  is  said  to  occur  when 
a  primitive  is  copied  and  that  copy  refers  to  an  actual  part  of  a  design  in 
progress.  For  example,  the  living  room  and  bedroom  of  a  house  are 
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different  instantiations  of  the  same  primitive  room  while  their  walls, 
floors  and  ceilings  would  correspond  to  the  primitive  face.  There  is 
actually  a  two-way  relationship  present.  That  is,  if  a  particular  face, 
face_A,  is  part  of  a  room,  room— 1,  then  room— I  contains  face— A. 

This  dual  relationship  will  be  used  later  in  the  development  of  the  design 
data.  It  is  also  important  to  note  that  while  a  sub_cover  must  be  part  of 
some  given  face,  it  is  not  true  that  any  instantiation  of  a  face  must 
contain  a  sub— cover.  For  example,  consider  a  face  consisting  of  unpainted 
brick  attached  to  a  wooden  frame.  Then  the  face  would  consist  of  a  cover 
(the  brick)  and  a  frame.  If  painted,  the  brick  becomes  a  sub_cover  with 
the  paint  acting  as  a  cover. 

Primitive  types  may  be  defined  to  any  level  of  abstraction  and  become 
the  building  blocks  for  the  final  product  design;  thus,  each  conceptual 
schema  is  product  dependent  iRef.  51.  Those  primitive  types  with  dark 
borders  in  Figure  3  have  named  subtypes  associated  with  them.  A  house 
may  be  subtype  colonial  or  ranch  for  example.  A  room  may  have  subtype 
bedroom  or  bathroom.  The  use  of  subtypes  allows  information  about 
specific  configurations  of  types  to  be  stored  for  later  use.  They  become  a 
framework  on  which  to  build.  For  example,  there  are  certain 
characteristics  about  a  bathroom  that  makes  it  a  bathroom.  The  subtype 
bathroom  should  capture  that  information  which  is  true  for  all  bathrooms 
for  use  in  future  designs. 

The  CAD  process,  guided  by  the  data  model,  records  actual 
instantiations  of  the  primitive  types  of  the  conceptual  schema  to  form  the 
design  schema  for  the  product  of  interest.  A  particular  house  design 
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schema  for  which  our  example  translator  will  be  based  is  shown  in 
Figure  4. 

The  design  schema  for  a  product  uses  inheritance  properties  to  infer 
some  information  about  the  primitive  types  using  known  information  about 
related  types.  Inheritance  refers  to  those  cases  where  there  is  no  need  to 
specify  different  values  for  two  different  types  that  are  related  in  a 
specific  manner.  One  type  simply  inherits  the  information  from  the  other 
type.  Consider  a  car  being  manufactured.  If  the  car  has  its  color  specified, 
then  parts  of  the  car  such  as  fenders,  doors  and  hood  would  inherit  that 
color  information.  In  addition,  using  both  part— of  and  contains 
relationships,  this  information  is  easily  passed  both  up  and  down  the 
hierarchical  structure.  The  conceptual  schema  provides  the  CAD/CAM 
translator  information  on  how  the  different  building  blocks  of  the  final 
product  will  fit  together. 

B.  PROTOTYPE 

A  prototype  can  be  thought  of  as  a  block  of  memory  allocated  to  store 
data  for  any  given  type  (primitives  and  subtypes).  For  each  different  type, 
a  new  prototype  must  be  defined  since  the  amount  of  memory  storage 
required  is  type  dependent.  In  this  way,  can  partition  our  data  such 
that  all  the  facts  known  about  any  particular  type  instantiation  can  be 
aggregated  in  much  the  same  way  modern  programming  techniques  allow 
the  partitioning  of  programs  into  modules  [Ref.  91.  There  exists  a 
one-to-one  correspondence  between  the  set  of  all  types  and  the  set  of  all 
classes  or  prototypes  [Ref.  5). 
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The  set  of  all  prototypes  for  any  given  conceptual  schema  will  be 
designed  to  provide  the  interface  between  CAD  and  CAM  with  the 
necessary  data  to  determine  all  required  input  for  the  CAM  routines.  Now 
consider  the  design  of  a  prototype  that  will  allow  us  to  accomplish  this 
task.  Figure  5  is  an  example  prototype  for  the  primitive  type  cover  listed 
in  our  conceptual  schema  presented  earlier. 


*  ■>  «ttributt  may  to  Mwrttrt 
from  fao*  prototype 

**  *>  attrtwt*  Is  optional 


Figure  5.  Prototype  for  primitive  Cover. 

Each  prototype  has  named  slots  which  can  be  filled  in  for  a  particular 
instantiation  of  that  prototype.  These  slots  contain  either  relation  or 
attribute  data.  The  slot  part  of  in  Figure  5  is  for  relation  data.  It  relates 
the  cover  to  a  particular  face.  The  slot  material  type  is  for  attribute 
data  and  is  used  to  store  material  information  about  the  cover. 

A  blank  prototype  is  also  known  as  an  intension  or  abstract  specification. 
An  intension  is  a  meaning  of  a  concept;  that  is,  the  prototype  for  a  cover 
defines  what  it  means  to  be  a  cover  [Ref.  9).  With  the  appropriate  slots 
filled  in,  it  becomes  an  extension  of  the  original  prototype  [Ref.  51.  An 
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extension  is  a  concept  which  corresponds  to  an  actual  item  which  has 
existed  in  the  past,  currently  exists  or  will  exist  in  the  future  [Ref.  9].  In 
the  above  illustrated  prototype,  the  slots  material  type,  height  and 
depth  fall  under  different  rules  for  being  filled  in  as  Figure  5  notes.  The 
attribute  material  type  is  required  to  be  filled  in  while  depth  is 
optional.  Those  slots  made  optional  were  those  that  could  have  a 
nonsensical  value  under  some  circumstances.  Consider  the  depth  of  a  cover 
of  paint.  While  some  number  could  be  given,  it  would  not  normally  be 
relevant  to  the  design  and  construction  of  a  house.  Therefore,  its  value  is 
optional.  Careful  thought  must  be  given  to  the  use  of  optional  entries 
during  the  design  of  the  prototypes.  The  design  and  efficiency  of  the 
CAD/CAM  interface  may  be  dependent  on  the  number  of  vacant  slots 
allowed.  For  those  cases  where  the  slots  may  or  may  not  be  filled  in,  the 
interface  will  have  to  consider  both  cases.  The  number  of  vacant  slots 
allowed  can  have  an  adverse  effect  on  the  number  of  rules  used,  the 
complexity  of  rules  used,  or  both  for  the  interface  system. 

The  attribute  height  shown  in  Figure  5  may  be  filled  in  or  left  blank 
with  the  value  to  be  determined  for  input  to  the  CAD/CAM  interface  using 
inheritance  rules.  Inheritance  will  be  discussed  in  more  depth  in  the  next 
section. 

The  format  for  storing  data  in  a  prototype's  slots  should  be  kept 
simple  to  minimize  the  effect  on  the  interface  design.  That  is,  value 
information  for  each  slot  should  consist  of  only  two  parts  at  the  most: 
actual  value  and  units  of  measurement  when  required.  The 
attribute/relation  that  specifies  the  slot  may  consist  of  several  parts 
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itself  such  as  dimensions(height)  but  should  be  standard.  Using  this 
method,  each  prototype  slot  is  bound  to  a  specific  value  based  on  some 
standard  attribute  or  relation.  For  any  given  product,  there  will  exist  a 
set  of  attributes  and  relations  for  which  each  prototype  will  require  a 
subset  to  define  its  required  slots.  Some  attributes  and  relations  will  be 
universal  to  all  products  while  others  will  be  product  specific.  Consider, 
for  example,  property(material  type).  This  would  be  required  knowledge 
for  all  products.  Now  consider  the  attribute  dimensions(height)  in 
relation  to  spherical  product.  It  has  no  meaning  while  the  attribute 
dimensions(radius)  does. 
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Figure  6.  Prototype  for  primitive  Face  filled  in  for  instantiation  face!  1 . 


Figure  6  is  an  example  of  a  filled  in  prototype  showing  extension  name, 
qualifying  data  and  values.  This  prototype  is  for  a  particular  face  shown 
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in  the  house  design  schema  of  Figure  4.  It  represents  CAD's  knowledge 
about  face  1 1.  Note  that  one  of  the  slots  violates  the  rules  presented 
above  for  simplicity  of  slot  specification.  This  is  the  slot  for  the 
relationship  contains.  This  type  slot  allows  for  a  one-to-many 
relationship  between  a  composite  object  and  its  components.  This  was 
done  for  two  reasons.  First,  part_of  already  provides  a  simple  relation 
between  any  two  related  parts  that  meets  the  requirements  listed  above. 
Second,  the  use  of  multi-values  allows  CAD  to  move  quickly  up  and  down 
the  hierarchical  design  schema  while  conserving  storage  memory  required 
for  each  prototype. 

C.  SLOT  INHERITANCE 

Now  we  consider  in  more  detail  how  inheritance  can  be  used  to 
determine  a  slot’s  value.  Inheritance  refers  to  the  property  exhibited  by 
two  prototypes,  which  due  to  their  relationship,  possess  slots  which  must 
take  on  the  same  value  as  the  other's  slot. 

Face!  1,  whose  prototype  is  shown  in  Figure  6,  contains  cover  1. 

Figure  7  is  a  filled  in  prototype  for  cover  I  based  on  known  CAD  design 
data.  The  primitives  height  and  width  for  cover_!  are  not  filled  in  and 
therefore  their  values  must  be  determined  using  inheritance  rules  when 
determining  the  design  data  for  input  to  the  CAD/CAM  interface.  For  this 
reason,  the  inheritance  rules  must  be  part  of  the  prototype  definition. 
Looking  at  Figure  7,  the  indicates  that  the  slot,  if  left  blank,  will 
inherit  its  value  from  the  face  which  the  cover  is  part  of.  Using  this 
method,  it  is  possible  to  specify  an  entire  chain  of  primitives  from  which 
inheritance  can  take  place.  For  example,  the  cover  1  prototype  could  have 
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specified  that  inheritance  from  the  sub_cover  beneath  cover  1  would  take 
priority  over  inheritance  from  facel  1.  In  addition,  if  inheritance  from 
sub_covers  was  allowed,  then  ordering  of  the  sub_covers  becomes  a 
factor.  Using  this  method  for  a  cover  with  two  sub_covers  beneath  it,  we 
should  first  look  for  the  slot  value  in  the  sub_cover  directly  beneath  the 
cover,  next  check  the  second  sub_cover,  and  lastly  get  the  value  from  the 
appropriate  face  if  not  yet  successful  in  finding  a  value. 


ivanw:  oovtrl 


*  ■>  ittrftuto  may  b*  HwriW 
from  foot  prototype 

**  ■>  ottrtxit*  to  optional 


Figure  7.  Prototype  for  primitive  Cover  filled  In  for  cover  1. 

Part  of  the  CAD  process  is  verifying  that  the  correct  values  for  those 
slots  left  blank  will  be  properly  inherited  for  input  to  the  translator. 

D.  COORDINATE  SYSTEM 

In  order  to  specify  location  information  in  a  prototype,  it  is  imperative 
that  the  frame  of  reference  be  known  by  any  process  using  that 
information.  For  most  products,  three  frames  of  reference  should  suffice. 
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These  are  global  or  world,  product  and  local  coordinates  .  Figure  8  shows 
the  relationship  between  each  of  these  systems. 

Global  or  world  coordinates  relate  to  the  real  world.  For  example,  the 
lines  of  the  compass  could  be  used  with  the  Z  axis  perpendicular  to  the 
ground.  The  product  coordinate  system  expresses  location  information 
relative  to  the  product  itself  and  is  useful  when  locating  parts  on  the 
product  regardless  of  the  absolute  location  of  the  parts  relative  to  the 
earth.  For  large  parts  that  are  made  up  of  many  smaller  parts,  the  local 
coordinate  system  may  be  used  to  express  the  location  of  the  smaller 
parts  relative  to  the  large  part. 


Local 

Coordinates 


Figure  8.  World,  Product  and  Local  coordinate  system  relationships. 

The  use  of  product  and  local  coordinate  systems  not  only  eliminates 
the  need  for  absolute  or  global  location  coordinate  information  under  most 
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circumstances  but  also  provides  automatic  update  of  location  information 
during  design  changes.  For  example,  consider  a  face,  facet,  that  contains 
a  window,  window  1.  A  design  change  is  made  that  causes  facet  to  be 
moved  ten  feet.  If  window  I  s  location  has  been  expressed  relative  to 
facel,  then  updating  facet’s  location  will  automatically  handle 
window  I  since  the  relative  location  for  window!  has  not  changed. 

In  addition  to  specifying  locations  of  various  parts,  other  information 
about  the  part's  position  may  be  desired.  If  many  flat  parts  are  being  used 
in  a  product,  then  the  unit  vector  perpendicular  to  their  surface  can  be 
used  to  gather  additional  information  on  how  the  parts  will  align  in  the 
final  product.  This  vector  is  called  a  normal.  Figure  9  shows  an  example 
of  a  normal. 


Figure  9.  Example  of  a  normal  vector  to  a  surface. 

By  definition,  a  normal  is  of  length  I  unit,  regardless  of  the  units  used. 
In  this  manner,  each  flat  surface  will  have  one  unique  normal  associated 
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with  it  and  each  normal  will  specify  one  and  only  one  surface.  It  is 
important  to  remember  that  the  coordinate  system  used  to  express  a 
normal  will  affect  its  value  and  therefore,  for  a  normal  to  be  useful,  the 
coordinate  system  associated  with  that  normal  must  be  specified. 
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IV.  Data  Requirements  for  Computer  Aided  Manufacturing 

Figure  9  shows  the  data  flow  for  a  typical  CAM  process.  The  Material 
Requirements  Planning  Data  consists  of  two  parts,  assembly  instructions 
and  a  raw  material  requirements  listing  [Ref.  51.  Each  of  these  will  be 
discussed  in  this  section. 


Figure  9.  Computer  Aided  Manufacturing  deta  flow  [Ref.  5]. 

The  purpose  of  the  expert  system  translator  will  be  to  provide  the 
assembly  instructions  and  raw  material  requirements  in  such  a  format 
that  will  allow  it  to  interface  to  an  automated  manufacturing  system. 

A.  ASSEMBLY 

What  information  is  necessarily  contained  in  the  generated  assembly 
instructions?  That  is  product  dependent.  For  example,  when  putting  solder 
on  an  electrical  connection,  the  type  of  solder  used  as  well  as  the 
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temperature  of  application  can  be  important.  When  gluing  two  components 
together,  the  type  glue  used,  the  pressure  applied  and  the  drying  time 
become  important.  These  are  examples  of  information  that  may  be 
generated  by  the  CAM  system  normally  but  may  also  be  overridden  during 
CAD.  The  interface  must  be  capable  of  passing  this  information  through  to 
the  CAM  process. 

In  addition,  the  assembly  instructions  will  provide  sequencing 
information,  the  determination  of  which  may  require  not  only  the 
conceptual  schema  for  relation  data,  but  also  prototype  data.  This  would 
be  due  to  information  contained  in  the  prototype  that  affects  priority  such 
as  space  requirements  for  installation.  Figure  10  is  an  example  where  this 
type  of  information  is  necessary. 


1 — 1 

1 

PART  B 

PART  A 

• 
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« 

• 

• 

• 

1 - 

• 

1 

• 

PART  C 


Part  D  =  A  ♦  B  ♦  C 


Figure  1 0.  Assembly  consisting  of  ports  A,  B ,  and  C. 


Part  A,  part  B  and  part  C  assemble  together  to  make  part  D.  From  the 
diagram  it  can  be  seen  that  an  assembly  sequence  that  attaches  part  B  to 
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part  C  and  then  part  A  to  the  pair  to  form  part  D  will  not  work  since  part 
B  will  interfere  with  part  A  unless  sufficient  slack  exists  in  the  fit  to 
allow  part  A  to  slide  in  from  the  side.  This  type  of  information  would  not 
be  contained  in  the  conceptual  schema. 

For  some  products,  component  location  information  during 
manufacturing  is  important.  Consider  an  electrical  circuit  again.  Locating 
components  on  a  circuit  board  is  a  very  complex  problem  which  is  not 
currently  well  supported  by  CAM  and  ignored  during  CAD  [Ref.  101.  Well 
placed  components  makes  efficient  routing  of  interconnections  a  simple 
task  and  therefore  desirable. 

B.  MATERIALS 

The  other  portion  of  the  Material  Requirements  Planning  Data  is  the 
raw  material  requirements  listing.  Figure  1 1  illustrates  some  example 
output  for  raw  materials,  again  from  the  house  construction  example.  The 
names  of  each  item  corresponds  to  well  known  building  materials.  For 
example,  hardboard32  and  hardboard34  are  both  hardboard  material  but 
have  different  dimensions  and  costs.  To  calculate  requirements  for 
shingle  12  and  briclc88,  effective  areas  were  used.  Shingles  are 
overlapped  during  construction  decreasing  their  effective  area  covered 
while  bricks  have  concrete  placed  between  them  increasing  their  effective 
area. 

Based  on  dimensions  of  the  product,  cost  per  unit  of  raw  materials,  and 
design  information  about  the  raw  materials  of  interest,  the  translator  can 
generate  the  total  amount  of  raw  materials  required  and  the  total  cost. 
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Rcm  Materials  Report 


1  tee 

Cost 

Units  Required 

door  1 

$16 

1 

•indoet 

$30 

1 

concrete! 

$1737 

347.514 

•ood8 

$3582 

434. 194 

tar -paper 2 

$841 

6.73333 

hardboard32 

$211 

1.54776 

i _ ■ . .  . nA 

nCTuDOarChM 

$147 

1.54722 

hardbocrd78 

$200 

0.694444 

hard_»ood9 

$900 

75 

sheath_paper24 

$64 

0.850277 

shingle12 

$2020 

1616 

brick88 

$4224 

3673.2 

paint9 

$8 

1.0317 

paint 17 

$4 

0.551818 

paint21 

$12 

0.923095 

* 

Total  eater ial  cost 

* 

* 

is  $13996 

♦ 

_ 1 

Figure  11 .  Rev  materials  requirements  listing. 
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In  addition,  information  on  allowed  substitute  materials  could  be  kept 
in  the  database  to  take  advantage  of  not  only  fluctuating  cost,  but  also 
fluctuating  inventory  in  order  to  get  the  most  optimal  cost  product 
[Ref.  5].  For  such  a  system  to  work  successfully  though,  it  must  allow  for 
CAD  to  specify  a  no-substitute  condition  when  required. 

Using  the  Material  Requirements  Planning  Data  as  input,  CAM  will 
generate  the  Scheduling  Data  necessary  for  final  production.  The 
Scheduling  Data  may  then  be  used  as  input  to  an  automated  manufacturing 
system. 
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The  Expert  System  Shell  Translator  will  act  as  the  interface  between 
CAD  and  CAM.  Figure  12  demonstrates  how  the  translator  relates  CAD  data 
output  to  CAM  required  input. 


Figure  1 2.  Expert  System  Shell  Translator  [Ref.  5]. 

Using  the  schema  data  and  design  data  from  CAD  as  input,  the 
translator  determines  the  necessary  material  requirements  planning  data 
to  pass  to  CAM  by  making  use  of  meta-knowledge  and  assembly  data.  A 
deduction-oriented  rule-based  system  that  starts  with  known  facts  and 
deduces  new  facts  is  said  to  exhibit  forwards  chaining  [Ref.  111.  Forwards 
chaining  has  the  ability  to  reach  many  conclusions  based  on  the  data  which 
is  what  we  desire  for  our  translator.  These  new  conclusions  are  then  used 
to  search  for  more  facts.  When  no  more  conclusions  are  possible,  forwards 


chaining  is  complete.  This  is  just  the  type  structure  that  would  be  needed. 
In  addition,  the  translator  performs  various  standards  checks  on  the  CAD 
data  to  ensure  its  correctness.  Correctness  is  used  here  to  imply  the  data 
meets  all  known  requirements.  These  requirements  may  be  based  on  laws 
of  physics,  laws  of  government,  or  anything  else  deemed  appropriate. 

A.  META-KNOWLEDGE 

Meta-knowledge  can  be  defined  as  knowledge  about  knowledge  [Ref.  12]. 
It  is  used  to  guide  the  program  in  the  selection  of  rules  to  apply.  This 
knowledge  may  be  either  implicit  or  explicit.  Explicit  meta-knowledge  is 
sometimes  employed  using  meta-rules.  Meta-rules  are  used  to  guide  in  the 
application  of  other  rules.  An  example  would  be  the  case  where  two 
possible  rules  could  be  applied,  rule  one  and  rule  two.  A  meta-rule  might 
state  that  rule  two  should  be  tried  prior  to  rule  one  for  some  specific 
conditions.  Implicit  meta-knowledge  is  more  common  but  more  difficult  to 
handle  when  changes  are  made  to  the  program.  Figure  13  shows  an  example 
of  implicit  meta-knowledge  that  could  be  used  in  house  design  and 
manufacture. 

Explicit  is  the  fact  that  rule  number  one  passes  control  to  rule  number 
three  and  rule  number  three  uses  recursion  to  find  and  handle  all  faces 
except  those  facing  upwards.  Implicit  is  the  fact  that  when  rule  three 
eventually  fails,  we  backtrack  to  rule  number  two. 

B.  ASSEMBLY  DATA 

The  assembly  data  must  provide  sequencing  information  which  makes 
use  of  not  only  the  conceptual  schema  for  relational  data,  but  also 
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prototype  data.  The  conceptual  schema  gives  information  on  how  the 
components  fit  together,  but  the  prototype  data  may  give  new  insight  to 
priorities  for  those  cases  where  assembly  may  take  several  paths. 
Consider  soldering  two  electrical  components,  a  transistor  and  a  resistor, 
to  a  circuit  board.  The  transistor  is  much  more  heat  sensitive  than  a 
resistor  normally.  Therefore,  even  though  the  schema  would  show  no 
priority  for  ordering,  data  contained  in  the  prototype  for  the  transistor 
would  show  its  heat  limitations  during  soldering  and  would  be  used  to 
ensure  the  resistor  was  placed  on  the  circuit  board  first. 


Figure  13.  Use  of  Meta-Knowledge. 


It  is  important  to  remember  that  the  term  components  is  being  used 
here  in  an  abstract  way.  Items  such  as  solder,  grease,  oil  and  glue  may  all 
be  considered  components  of  a  product. 

Figure  14  is  a  sample  of  two  assembly  rules  written  in  Prolog  and  used 
for  the  example  house  construction  project.  Note  that  both  rules  make  use 
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of  schema  data  as  well  as  design  data  to  provide  sequencing.  The  schema 
data  allows  access  to  the  frame  attached  to  the  face  currently  under 
construction  while  design  data,  in  this  case  normal  information,  is  used 
to  prioritize  the  frames. 


/*  do  foundation  fraM  */ 
tiff— h  lo<H,hou—) 
i s_a< Vfaco,  fac«), 
trcra_partof(Vfaco,H), 
norMi-Z(Vfaca,  1 >, 
ccntain*<Yfac*,L>, 

Mobar<FraM,L>, 

ifua<FraM/fraM>, 

proper  ty<FroM,  oatar  i  a  I  -typo,  Mtypo  >, 

asMrtz<oporation<Fraoa,asMobla, 'aatorial  typo:  *,ntypo>). 

/*  do  fraM  perpendicular  to  ground  */ 
nffeehle<H,houee) 
is_a< Vfaco, face), 
trarts-partof (Yfaco,  H  >, 
noroal_V<Vfaco,0>, 
rtoroa  I  _2<Vf aco,  0  >, 
canto  i  ns<Vfaco,  L  >, 

— tor<Frt—,L>, 
i *_a<Fraoo, fraoo >, 

proporty<Fraoo,  eater  i  a  I  -type,  Htypo  >, 

assartz(oparation<Fraoo,asmoblo, 'eater ial  type:  ', Htypo)). 


Figure  1  A.  Assembly  rules  for  house  construction. 


In  addition  to  sequencing  instructions,  assembly  data  can  be  used  to 
determine  component  location.  This  is  a  very  difficult  problem  in  VLSI 
design  and  manufacture  and  is  not  well  supported.  The  number  of  possible 
placements  in  many  circuits  makes  an  exhaustive  search  for  the  ideal 
placement  impossible.  In  addition,  there  are  many  factors  controlling 
placement  including  temperature  limitations,  position  of  edge  connectors, 
position  of  busses,  and  speed  restrictions  which  in  turn  restricts  length 
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of  interconnections  [Ref.  10).  To  find  a  recommended  solution  to  such  a 
problem,  an  expert  system  translator  could  make  use  of  advanced  search 
techniques  currently  employed  in  artificial  intelligence  programming  such 
as  depth-first,  best-first  or  breadth-first.  Because  this  is  such  a  difficult 
problem,  a  system  might  allow  a  user  to  interact  with  it  to  aid  in  the 
search. 

C.  STANDARDS  DATA 

Standards  data  is  used  here  in  a  broad  sense  and  represents  not  only 
governmental  standards  required  by  Federal,  State,  local  and  Occupational 
Safety  and  Health  (OSHA)  regulations  but  also  those  standards,  which  if 
violated,  will  result  in  a  product  that  may  not  function  properly. 
Governmental  requirements  have  always  been  with  us  and  include  federal, 
state  and  local  regulations.  But  with  the  advent  of  CAD  systems,  new 
product  designs  have  become  increasingly  complex.  For  instance,  VLSI  and 
multichip  systems  may  be  comprised  of  more  than  250,000  gates  [Ref.  131. 
Due  to  this  increased  complexity,  it  has  become  increasingly  harder  to 
detect  design  errors  prior  to  manufacture  and  shipment  to  customers. 
Figure  15  shows  data  put  together  at  IBM  which  relates  circuit  errors 
remaining  to  rate  of  errors  detected. 

It  is  important  to  note  that  there  exists  a  point  in  time  when  there  is 
a  marked  decrease  in  design  error  detection  even  though  the  number  of 
errors  left  remains  relatively  high.  Design  requirements  can  be  included  in 
the  standards  data  to  reduce  the  number  of  errors. 

For  example,  in  VLSI  design,  the  translator  could  check  for  loading  of 
components,  power  supplies  to  components  and  all  leads  property 
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connected.  An  example  of  this  would  be  verifying  that  the  fanout  of  each 
integrated  circuit  had  not  been  violated.  The  fanout  of  an  integrated 
circuit  is  the  number  of  gates  that  may  be  connected  up  to  one  pin  of  that 
integrated  circuit  without  overloading  the  circuit  and  causing  failure.  This 
type  of  error  could  produce  a  product  that  functioned  properly  but  had  a 
shortened  lifespan.  It  might  only  be  found  after  numerous  customer 
complaints  and  by  that  time  the  supply  stock  of  the  device  could  be 
extremely  costly  to  replace. 


Figure  1 5.  Error  detection  in  VLSI  circuit  design  [Ref.  7J. 


D.  LANGUAGE  OF  CHOICE 

The  terminology  expert  system  has  been  used  in  our  discussion  on  the 
CAD  to  CAM  translator.  True  expert  systems  are  written  using  artificial 
intelligence  languages  such  as  Prolog  and  belong  to  the  class  of  artificial 
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intelligence  applications  known  as  knowledge-based  systems  [Ref.  5]. 
Figure  16  is  an  example  of  the  structure  of  an  expert  system. 

DESIGN  DATA 


ACTION 

Figure  16.  An  Expert  System  [Ref.  13J 


Prolog  programs  are  actually  rule-based  where  each  rule  represents  an 
expert’s  knowledge  of  the  problem.  "Knowing'  is  reduced  to  being  able  to 
represent  symbolically  facts  about  the  surrounding  environment  [Ref.  121. 
Data  supplied  to  the  expert  system  is  then  treated  as  facts  and  used  to 
deduce  more  facts.  An  interesting  feature  of  some  of  these  rules  is  their 
apparent  link  to  rules  of  thumb;  these  rules  are  known  as  heuristics 
[Ref.  12). 

What  are  the  necessary  qualities  of  an  expert  system?  It  must  of 
course  properly  perform  its  assigned  tasks.  The  problem  is  that  what  is 
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proper  to  one  expert  may  not  be  proper  to  another.  For  example,  consider 
two  builders  each  constructing  a  house  of  similar  design.  While  most  of 
the  assembly  priorities  for  each  one  would  be  similar,  some  differences 
could  exist.  If  both  builders  are  experts  in  their  field,  who  is  more 
correct?  The  advantage  of  using  artificial  intelligence  languages  is  the 
flexibility  to  allow  manufacturers  to  set  their  own  priorities  by  modifying 
the  expert  system  rule  base  without  any  change  to  the  CAD  or  CAM 
systems  in  use. 

Expert  systems  also  have  the  ability  to  explain  their  path  of  reasoning, 
although  in  today's  systems  the  explanation  is  usually  nothing  more  than  a 
trace  of  rules  sucessfully  being  fired.  A  rule  is  said  to  fire  if  enough 
facts  are  known  so  that  the  rule  is  now  proven  to  be  true. 

When  actually  constructing  an  expert  system,  it  is  also  important  that 
the  code  be  partitioned  according  to  the  areas  of  concern.  This  is  due  to 
the  fact  that  many  experts,  who  would  be  expected  to  supply  their 
knowledge  to  build  the  system,  are  limited  in  the  breadth  of  their 
knowledge.  Therefore,  the  code  should  be  divided  in  such  a  way  that  each 
expert  has  responsibility  for  only  that  part  pertaining  to  his  area  of 
expertise. 
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VI.  Example  Expert  Shell  Translator 


Appendix  A  is  a  diagram  of  a  simple  one  room  house  which  was  used  as 
a  basis  for  this  example  expert  shell  translator.  The  prototypes  for  the 
house  are  based  on  the  conceptual  schema  of  Figure  3  and  are  shown  in 
Appendix  B.  The  actual  prolog  computer  code  for  the  translator  is 
contained  in  Appendix  C.  Appendix  D  gives  the  translator  output  for  the 
house  construction  example  whose  design  is  depicted  in  Appendix  A. 


part_of(hous*/oonO. 

partjoffCroontjfao*). 

/tor). 

partjDfCfaot^vMsv). 

pwi-triCfaoVjflpming). 

partjofCfaw^MivvHng). 

partjvfCfm^ubuoovtrtig). 

partjofCfMt 

pvi-jofCfM*  ,1nmlatton). 

tr«ns_partof(X,Y)  partjof(X,Y) ,1. 
trms-parto<0<,Y) p«rt_ofCX/), 
trm_prtefCZ,Y),!. 


Figure  1 7.  Implementation  of  Conceptual  Schema. 


A.  CAD  DESIGN  DATA 

Two  of  the  computer  code  files  in  Appendix  C  are  used  to  store  data 
that  would  be  expected  as  input  to  the  translator  from  CAD.  The  schema 
file  contains  the  schema  data  for  the  product  of  interest,  in  this  case  a 
one  room  house.  Figure  17  shows  some  of  the  code  from  this  file. 


38 


The  last  two  rules  in  Figure  17  are  used  to  specify  transitivity  in 
Prolog.  Thus,  if  pieced  is  part  of  piece_JB,  and  pieced  is  part  of 
piece_C,  these  rules  would  imply  that  piece_A  must  also  be  part  of 
piece__C.  The  use  of  such  rules  precludes  the  necessity  to  explicitly 
declare  these  relationships  for  all  possible  cases. 

The  design  schema  and  other  design  data,  which  are  derived  from  the 
filled  in  applicable  prototype  slots,  are  contained  in  the  house  1  file. 
Figure  18  demonstrates  the  relationship  between  one  sample  prototype  and 
its  corresponding  data  in  the  house  I  file. 

It  can  be  seen  that  the  use  of  a  language  like  prolog  makes  it  easy  to 
convert  the  prototype  data  to  usable  data  for  the  translator. 

B.  STANDARDS  CHECKS 

The  first  series  of  operations  performed  on  the  input  data  by  the 
translator  are  those  necessary  to  verify  all  applicable  standards 
requirements  are  met.  Figure  19  contains  some  of  the  standards  from  the 
standards  file  in  Appendix  C  that  were  used  for  our  one  room  house. 

Note  that  while  the  width  and  height  standards  for  doors  apply  only  to 
a  door  of  type  doorl,  the  depth  standard  for  doors  and  the  window  pane 
quality  standard  apply  to  all  doors  and  windows  respectively.  This 
demonstrates  the  flexibility  of  the  language  and  our  system. 

In  addition  to  actual  physical  checks,  two  other  types  of  standards  data 
are  also  contained  in  the  standards  file.  These  are  shown  in  Figure  20. 

The  first  is  the  comment— for  data.  For  example,  consider  the  rule 
comment_for(frame,wood,framing);  this  rule  relates  any  frame  made 
out  of  a  wood  product  to  the  comment  framing.  This  allows  data  that  can 
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HOUSE!  -4 


PROTOTYPE  -4 


f*  focel  */ 
is_ja<  face  1,  face). 

d i mens ion< focel, height,  115,  inches), 
d i mens ion< face 1,midth, 362,  inches), 
d  i  mens  ion(  focel,  depth,  1,  inches). 

containsCfacel, (sub_couer3,couer21 ). 

norma I _X < f ace  1 , 0 ) . 

norma I _V<  face  1,-1). 

norma I _Z< face  1 , 0 > . 

par t_of < f ace  1 , room 1 > . 


1  name: 

properties: 

*  finish  color  ! 

1  dimensions :  1 

heiqht 

1 15  inches 

vidth 

362  inches 

1  inoh 

oontains 

[sub^ooverS  .cover  2] 

ncrmal_X 

(0) 

normal_Y 

(-1) 

normal-2 

(0) 

part  of 

rooml 

*  *>  attribute  may  be  inherited 
from  the  cover  prototype 


Figure  1 8.  Computer  code  derived  from  Prototype  dote. 
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co— antteasonry, ‘approved  Methods  Must  be  used  for  building 
Masonry  —Us  ehen  outside  air  teepcrature  drops  beloe  40 
degrees  farenheit'). 
co— nt_f or  <cover,  brick.  Masonry). 
coMMent-f  or  (cover,  concrete-b  I  ock,  Masonry  > . 
coo— nt-for(st4>-couer,  brick.  Masonry), 
co— nt _ f  or  (subwXOver,  concrete-block.  Masonry  ) . 

coMMent< freeing, ‘grade  Marks  Must  be  clearly  visible  on  all 
freeing  eeebers  for  inspection'). 
coMMent_for<fra— ,eood,  fraeing). 

check_for<subucover ,  tar-paper,  ( tar_paper  I ,  tar_papar2,  tar-paper  31 ) . 


Figure  20.  Comments  on  sts  retards  requirements. 
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only  be  verified  during  manufacturing  to  be  output  by  the  translator  for 
the  information  of  the  CAM  system.  Sample  output  from  Appendix  D  is 
shown  in  Figure  21. 


Figure  2 1 .  Translator  output  following  application  of  standards  comments. 

The  last  data  type  contained  In  the  standards  file  is  the  check_for.  In 
Figure  20.  the  rule  check_for(sub_cover.  tar_paper.  [tar_paperl. 
tar_paper2.  tar_paper3])  is  used  to  verify  that  all  sub_covers  made 
out  of  tar_paper  use  tar_paperl.  tar„paper2  or  tar_paper3.  In  addition, 
those  types  of  tar_paper  not  used  are  listed  as  possible  material 
substitutions.  These  lists  of  possible  substitutions  will  become  important 
again  when  determining  raw  material  requirements  later  in  this  chapter. 
Figure  22  is  example  output  data  showing  the  use  of  this  type  standards 
check. 

Note  that  the  design  data  currently  has  sub_coverM  made  from 
tar_paper2.  Therefore,  the  other  two  types  are  listed  as  possible 
substitutes.  For  more  realistic  situations,  substitutions  of  one  material 
may  affect  other  parts  of  the  product.  For  example,  consider  a  case  where 
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several  types  of  plastic  have  been  listed  as  acceptable  for  the  product 
piece  in  question.  However,  if  a  glue  is  being  used  on  the  plastic  during 
the  manufacturing  process,  different  plastics  may  require  different  glues. 
Therefore,  caution  must  be  used  in  making  substitutions. 


chack  for  subucouar  subuoovar14 

mbucouar  subucouar14  aaats  raqulr— ants;  alloaad  substitutas  arm: 

-  tor-paparl 

-  tor_popar3 


Figure  22.  Listing  of  substitutions  by  transistor  during  standards  checks. 

C.  PRODUCT  ASSEMBLY 

Once  the  standards  checks  have  been  completed,  the  translator  must 
determine  the  product  assembly  sequence.  To  build  our  one  room  house,  we 
would  expect  the  frame  to  be  erected  first.  Figure  23  is  a  listing  of 
Prolog  rules  used  to  generate  the  assembly  steps  for  the  frame  foundation 
and  walls. 

The  first  frame  selected  for  assembly  is  the  foundation.  This  frame  is 
located  by  finding  a  face  which  is  part  of  the  house  being  built  and  which 
also  faces  away  from  the  ground.  The  transL_partof(Yface,H)  will  locate 
any  face  that  is  part  of  the  house  represented  by  the  variable  H.  Then 
normal_2(Yface(l)  checks  if  the  2  component  of  the  normal  to  the  face 
of  interest  is  equal  to  one.  If  so,  then  this  face  is  a  floor.  Figure  24 
shows  example  orientations  of  normals  for  our  one  room  house. 
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f*  do  foundation  fra—  */ 
asseeblefH, house) 
isuofYf  ace,  face), 
trans_partof  <Vface,  H  >, 
nor*al_Z(Vface, 1), 
containsfVface,  L ), 

■eeberfFraae, L  >, 
is_a<Fraee,  from), 

proper tyCFraae,  Miter  ia  I  -type, h type  >, 

asser tzfoperat ion<Fra*e, assemble, ‘ eateriai  type:  ',Mtype>). 

/*  do  fraM  perpendicular  to  cp'ound  */ 
asseable<H,house) 
is-a<Vface, fact), 
trans_partof < Vface , H >, 
nor*al_Y<Yface,0), 
noreal_Z<Yface,0), 
conta i ns(Vf ace , L ), 
eeeber(Fraee,L), 
i  s_a<  Fraae,  fraM  ), 

proper  tyfFraee,  eater  i  a  I  -type,  ntype  >, 

assertz<operation(FraM,asscable, 'eateriai  type:  ',Htype>>. 

asseeble(HJ house) 
is_a<Yface,  face), 
trans_partof<Yface,H>, 
norea  I  J«  Vface,  0  ), 
noraal_Z(Vface,0), 
conta  i  ns<  Vface,  L  >, 

•caber  <Fraee,L), 
i  s_a<Fraae,  fraee  ), 

proper  tyCFraae,  eater  ia  I -type,  ntype  >, 

assertz<aperation<Fraae,asseable,  ‘eateriai  type:  *,Htype)). 


Figure  23.  House  sample  assembly  rules  for  transistor. 
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Any  normal  parallel  to  a  coordinate  axis  will  have  that  axis*  component 
equal  to  one  in  value  if  It  points  in  the  positive  direction  along  the  axis 
and  equal  to  minus  one  if  it  points  in  the  negative  direction.  For  the 
example  house,  only  the  normals  to  the  faces  contained  in  the  roof  do  not 
meet  these  requirements,  it  is  not  necessary  that  any  face  meet  this 
requirement;  it  has  been  done  only  to  simplify  the  example. 


z  axis 


[  <*»»*  n 

normaLZ  ■  -1 

'  normaLX  *  -1 

4' 

normaLX  *  1 

4 

k 

imttmIlZ  *  1 

rtSF  if 

x  axis 


Figure  24  Use  of  normal  vectors  for  house  construction. 

Once  the  floor  frame  is  in  place,  the  second  and  third  rules  in  Figure 
23  locate  the  wall  frames  and  add  them  to  the  assembly  list.  The  second 
rule  looks  for  faces  with  normals  parallel  to  the  X  axis  by  specifying  that 
the  Y  and  Z  components  of  the  normal  are  equal  to  zero.  Similarly,  the 
third  rule  locates  those  faces  parallel  to  the  Y  axis.  In  prolog, 
backtracking  will  force  these  rules  to  be  tried  until  no  more  valid 
solutions  are  found.  In  this  way,  we  locate  all  faces  meeting  the 
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specifications  of  each  rule.  Therefore,  we  only  need  be  sure  that  each  rule 
does  indeed  fuily  state  ail  specifications  of  concern. 

In  Figure  25,  the  rules  which  generate  assembly  data  for  the  ceiling 
and  roof  are  shown. 


/*  calling  Irmm  */ 
acMabl«<H,houM> 
i*jo<VfoM,  foot), 
trOTs_partof<Vfoca,H>, 
noraal_Z<Vfoc«,-f ), 
contains<Vfac*,L), 
mmbmr<Frvm,D, 
i  s_ja<FraM,  fraM  >, 

prop«rty<FraM/Mtarial_typa/Htgp«>J 

CKMrtz<oparati<m<FrcM,asMabl«,  ‘aaUrial  tgp«:  *,Htyp«». 

/•  roof  fraM  •/ 
acs«oblo<H,houM> 
iu<Rooffroof), 
trar»_partof<Roof,H), 
i  iua<Vf a co,  fact  >, 
trano_partof (Vfacs, Roof  >, 
contairw(Yfaco,L), 
mmbm<¥rmm,L\ 

1rrm>, 

propor tg<FroM,  oa  tor  ial_tgpo#t1typo>, 
asMrtz<aporation<FrcM,asMoblo, 'ootorial  typo: 


Figure  25.  Assembly  rules  for  roof  end  ceiling. 


The  only  notable  difference  from  our  previous  rules  in  Figure  23  is  that 
faces  associated  with  the  roof  are  located  by  using  the  contains  relation 
associated  with  the  roof.  This  is  a  better  method  than  using  normals  since 
the  normal  vector  for  a  roof  face  can  vary  so  much  depending  on  the 
design  of  the  house.  The  only  framing  now  left  to  be  performed  is  for  the 
windows  and  doors.  Figure  26  lists  the  rules  that  handle  these  two  cases. 
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Both  rules  again  check  only  parts  of  the  house  of  concern.  For  the  door, 
we  determ ine  its  material  and  the  two  faces  to  which  it  is  attached  and 
save  this  information  in  assembly  data.  The  same  is  done  for  the  window 
except  now  the  sill  is  treated  as  its  frame.  Again,  both  rules  allow 
backtracking  to  get  all  occurrences  of  windows  and  doors  as  will  all  the 
assembly  rules. 


annabl«<H,houM> 
i*^a  (Door,  door), 
trans_partof(Door,H), 
proparty<Door,  Malarial -type,  tltypa), 

assartz(oparation<Door,a<MMbla,  'Material  type:  ',Htypa>>, 
gat_facas(0oor,Faca1,Faca2), 

a*sartz<oparatlon< ’  attach  to:  ‘,FacMl,FacM2». 

assMbla<H,houM> 
is_a<U,aindoa), 
tran*_partof(H,H>, 
contains(IJ,L), 
a— t>ar<8i  1 1,L>, 
if^a<sm,#m>, 

assartzCoparatianCSi  I  l,asMMbla, 'aindoa  sill  far:  ',!!», 
gat_facas(U,Faca1,Faca2), 

q»sartz<oparation< ' ' , attach  to:  ’.Foco  1,Foca2». 


F  igure  26.  Assembly  rules  for  windows  and  doors. 


With  all  the  framing  in  place,  the  faces  must  now  be  constructed. 
Figure  27  gives  the  code  to  handle  this.  Note  that  first  the  exterior  and 
roof  are  performed,  and  then  the  interior  room  itself.  For  each  area,  the 
contains  relaJon  is  used  to  get  a  list  of  all  parts,  including  faces,  of 
each  and  the  information  is  passed  to  an  assemble(L.face)  routine  to 
erect  only  the  faces.  This  is  actually  a  series  of  routines  that  use  both 
backtracking  and  recursion  to  determine  the  assembly  data.  Figure  28 
gives  the  routines  that  start  the  process. 
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ass«eble(H,house) 
is_ja<E,  exterior), 
tror»_par  tof  <E,  H  ), 
contairw<E,L), 
asseeble(L,  face). 

asseeble(H,house) 
is_a<R,roof >, 
traris_partof<R,H>, 
contains<R,L), 
asseeble(L,  face). 
asseeble<H,house) 
is_ja(R,rooe>, 
trans-par  tof  <R,  H  >, 
contains(R,L), 
asseable<L, face). 


Figure  27.  Assembly  rules  for  house  feces. 


asseeblett.,  face) 
assemble  1<L,  I), face). 

asseeble(L,face) 

— ber<Face,L), 
noreal_Z(Face,  1 ), 

assertz<operation<co— ent,  'bui  Id  floor  as  last  step’ 

contains<Foce,L1), 

asseeble2(  IL11,  (LI  1,  face). 

osseeblet<L,L1,foce> 
eeeber (Face, L ), 
not(noreal_Z(Face/ 1)), 
delete<Face,L,L2), 
contains<Foce,L3), 
assemble  KL2, IL3IL11, face), I . 

assemble 1<L, LI, face) 
asseeble2<L1,L1,face),  I . 


Figure  28.  Assembly  rules  to  prioritize  end  obtain  face  data. 
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The  first  and  second  rules  in  the  list  handle  two  different  cases, 
non-floors  and  floors  .espectively.  Any  face  pointing  directly  upward  is 
considered  a  floor,  of  which,  for  our  simple  example,  there  is  only  one. 

The  first  rule  takes  precedence  over  the  second  rule  and  calls  the  third 
rule  in  Figure  28.  The  third  rule  simply  finds  all  faces  which  are  part  of 
the  area  of  concern  but  are  not  facing  upward.  Looking  at  the  left  side  of 
the  third  rule,  assemble  1(L,L  I  .face),  L  is  the  set  of  parts  determined 
using  the  contains  relationship  earlier  and  LI  is  a  set  which  we  will 
construct.  LI  is  initialized  to  empty  when  the  first  rule  calls  the  third 
rule.  When  the  third  rule  finds  a  face  meeting  its  requirements,  the 
contains  relation  is  again  used  to  determine  the  parts  of  the  face.  This 
set  of  parts  is  added  to  LI  and  assemble!  recursively  calls  itself 
looking  for  more  faces.  When  none  are  found,  we  fall  through  to  the  fourth 
rule  which  calls  assemble2.  The  1  symbol  at  the  end  of  the  assemble  1 
rules  is  there  to  prevent  backtracking  into  them.  We  may  only  proceed 
forward  into  these  rules.  Backtracking  is  not  necessary  since  we  exit 
these  rules  only  when  ail  faces  meeting  our  specifications  are  found. 

Looking  again  at  the  second  rule  in  Figure  28,  we  put  only  one  face  in 
the  list  at  a  time  and  backtracking  is  necessary  in  the  case  where  there  is 
more  than  one  possible  floor  face.  This  may  or  may  not  be  desirable 
depending  on  the  house  design.  For  the  other  faces  though,  a  list  of  all 
faces  in  the  area  of  concern  is  created  using  recursion  to  allow  a  search 
for  common  building  materials  to  better  organize  the  assembly  data. 

Figure  29  shows  the  rest  of  the  routines  necessary  to  complete  the 
face  assemblies.  Note  that  assemble2  will  recursively  call  itself  until 
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oss4ii)la2<F'jl  I_L,L,  face) 
fbar<  Foce,L>, 
delete<Face,L,L1), 
ee eberC I tee, Face >, 
is_jadtee,ajtojcover), 
proper  ty<  I  tee, eater  ial_type,t1type), 
operation<V,_,-,Mtype>, 
eeeber (Face 1,Fu I  l-L), 
eeeber(V,Facet), 

assertztoperat  ion<  I  tee,asseeble,  'eater  ial  type:  ',Mtype>>, 
delete<  I  tee, Face, Face2), 
asseeble2(Ful  l_L,  IFace2|L1],face>, ! . 

asseeble2(Ful l_L,L,foce> 
eeeber (Face, L >, 
delete(Face,L,L1 ), 
eeeber <  I  tee.  Face  >, 
is_a<  I  tee, sub-cover), 
proper  ty<  I  tee,  eater  i  a  I  -type,  (1  type  >, 

assertz<operationd tee, asseeble, ‘eaterial  type:  *,Mtype>), 

deleted  tee, Face, Face  1), 

asseeb I e2(Fu I l_L. (FacellLll.face). f . 

asseeble2(Ful l_L,L, face) 
eeeber<Face,L), 
delcte<Face,L,L1 ), 
eeeber ( I  tee, Face), 
is_ad  tee,  cower), 

proper  ty<  I  tee,  eater  i  a  I  -type,  II type  >, 
notd  iquid<Htype, paint, 
oporat  i  on<V,  Mtype  ), 
eeeber(Foce1,Ful  l-L), 
eeeber<V,Face1 >, 

a*sertz<operationd tee, asseeble,  'eaterial  type:  '  ,Htype>>, 
deletet  I  tee, Face, Face2>, 
assesble2<Ful l-L, tFace2lL11,face>, ! . 

asseeble2<Ful I _L,L, face) 
eeeber<Face,L>, 
delete<Face,L,L1 >, 
eeeber < I  tee, Face  >, 
is_ad  tee,  cower), 

proper ty< I  tee, eater ial  -type,  11  type  ), 
not<  I  iquidtfl  type, paint, 

a*sertz<operationd  tee, asseeble, ’eaterial  type:  ',Htype)>, 
deleted  tee, Face, Focel), 
atseeble2(Ful l_L, (Face 1|L 11, face), I . 

asseeto I e2<Fu I l_L,L, face). 


Figure  29.  Assembly  rules  to  get  list  of  covers  end  sub-covers. 
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there  are  no  face  parts  left.  It  then  falls  through  to  the  last  rule  which 
succeeds  and  thus  exits.  Again,  no  backtracking  is  allowed  or  necessary. 

The  first  two  rules  in  Figure  29  search  for  all  sub_covers  letting 
those  sub_covers  made  up  of  material  already  used  in  the  area  of  concern 
take  priority  over  material  not  yet  used.  This  is  accomplished  by 
searching  through  all  the  current  operation  predicates  looking  at  all 
sub_covers  already  asserted  that  used  the  same  material.  If  a  sub_cover 
is  found,  then  a  search  is  performed  over  the  list  of  all  sub_covers  in  the 
area  of  concern  to  attempt  a  match.  If  a  match  is  found,  then  that 
material  has  already  been  used  and  it  will  take  priority.  If  no  match  is 
found,  then  the  next  sub_cover  in  the  next  face  is  listed  in  the  assembly 
data. 

The  third  and  fourth  rules  provide  a  similar  function  for  the  covers 
except  that  covers  made  from  paint  are  not  yet  allowed  to  be  listed.  The 
painting  will  be  performed  at  the  end  of  the  house  construction  to  prevent 
damage  to  the  finish. 

The  house  is  now  close  to  completion.  The  window  panes  are  inserted 
into  place,  the  windows  and  doors  are  painted,  and  the  doors  are  installed 
using  the  appropriate  doorknobs  and  hinges.  Now  is  the  time  to  complete 
the  painting  of  the  faces  that  was  previously  skipped  over.  Figure  30 
shows  the  rules  that  handle  this. 

Note  that  first  the  roof  is  painted,  then  the  exterior  and  then  last  we 
paint  any  rooms.  The  paint_face  routines  are  similar  to  what  we  have 
already  seen.  First,  the  ceiling,  if  one  exists  in  the  area  currently  being 
taken  care  of,  is  painted.  Then  the  walls  are  painted  and  next  the  floor  is 
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painted.  Any  face  left  over  is  painted  at  the  end.  This  handles  slanted 
surfaces  such  as  the  faces  of  the  roof.  The  one  room  house  is  now  fully 
constructed. 


asMabl«<H,houM) 
i*_u<R,roof), 
trm^Nrlof  <fi,H>, 
contains(R,L>, 
paint_fac*(L>. 

nffM«<H,houw) 
is_ja<E,«xt«rior  ), 
tran*_partof<E,H), 
contains(E,L>, 
paint_foc*<L). 

asM*bl«<H,houM> 

is^a<R,roo*>, 

tran*_partof<R,H), 

contains(R,L), 

palnt_fac«(L>. 


F  igure  30.  Assembly  rules  to  generate  paint  data 

D.  RAW  MATERIALS  LISTING 

With  the  assembly  data  finished,  the  translator  must  now  determine 
the  raw  material  requirements  to  build  the  house.  It  does  this  by  calling 
on  the  raw_ materials— needed  rules.  All  the  rules  work  in  much  the 
same  manner.  They  first  determine  what  extension  is  being  considered, 
then  the  material  of  concern  associated  with  this  extension,  and  last  the 
dimensions  of  this  extension  or  area.  All  dimensions  and  areas  are 
converted  to  a  common  unit  of  measurement  prior  to  calculations. 

Those  parts  of  the  house  associated  with  a  face  extension  such  as 
cover  and  sub_cover  call  a  routine  get— area  to  determine  the  surface 


area  involved.  This  special  routine  is  necessary  since  faces  may  have 
areas  such  as  doors,  windows  and  openings  which  subtract  from  the  total 
area  of  the  face  to  be  covered.  This  is  handled  by  calculating  a  negative 
area  for  each  face  to  be  subtracted  out  prior  to  material  requirements 
calculations.  This  negative  area  is  then  asserted  as  a  fact  for  each  face 
prior  to  actual  entry  into  the  raw_ materialSi— needed  routines.  An 
example  calculation  routine  is  shown  in  Figure  31. 


rooLJMtar  i  a  I  s_naadad 
i  s_o<Ex tens,  subucouar  ), 
d  i  Mra  i  on(Ex  tans,  depth,  Th,  Thun  i  ts), 
proper ty<Extans,aa tar ial_type,  notarial  >, 

m tarial (notarial ,_,Ht,Htuni ts,Ud,Uduni ts,0p,0puni ts, 

-i  — j  — j  Cost ), 

•atch<Ht,Huni  ts,Ud,Uduni  ts,Op,Dpuii  ts,Th,Thunl  ts,Rct_Ht, 
Uhi  ts1,Rct_Ud,Uhi  ts2), 
get-jarea(Extens,  Area,  Uhi  ts>, 
conwert<Rct_Ht,llhi  ts!,fict_Ht2,llhi  ts), 
conuart<Rct_Ud,Uhi  ts2,Act_Ud2,Uhi ts>, 

MueJUnJts  is  (Atm  /  (Rct_Ht2  *  Act-Ud2>>, 

Tot-Cost  is  (NuBJUhits  «  Cost), 

odd-<wtariql<hotarlq|,Nua-Ur>its,TotJCost),foi  I . _ 


F igure  3 1 .  Example  material  calculations  for  a  sub-jcover. 


One  aspect  of  how  the  above  example  works  not  yet  mentioned  is  the 
call  to  match.  This  rule  attempts  to  find  a  match  between  the  dimensions 
of  the  material  to  be  used  and  the  thickness  of  the  sub_cover  within  a 
tolerance  band.  This  is  then  used  to  determine  the  orientation  of  the 
material  within  the  sub_xover.  For  example,  if  a  board,  measuring  two 
inches  by  four  inches  by  four  feet,  is  used  to  build  a  sub— cover  which  is 
four  inches  thick,  then  the  two  inch  dimension  would  be  used  for  area 
calculations.  This  type  of  check  is  necessary  since  the  dimensions  height, 
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width  and  depth  are  based  on  the  view  of  the  person  determining  the 
values. 

Once  the  units  of  material  required  and  cost  are  determined,  these 
values  are  added  to  the  total  by  calling  add__material.  This  rule  first 
checks  for  any  previous  data  on  this  material.  If  some  is  found,  then  a 
new  total  is  calculated  and  saved.  Otherwise,  a  new  fact  on  the  material 
of  concern  is  created  and  saved. 

The  only  other  unusual  calculation  performed  during  the  material 
calculations  is  the  one  to  determine  the  frame  requirements  along  the 
center  of  the  roof,  between  the  roof  and  the  ceiling.  We  need  the  height  of 
the  roof  above  the  ceiling  to  make  this  calculation.  This  is  easy  to  do 
though  since  the  normal  vectors  for  the  roof  faces  are  known.  It  turns  out 
that  each  component  of  the  normal  is  equal  to  the  cosine  of  the  angle 
created  by  the  intersection  of  a  line  parallel  to  that  component's  axis  and 
the  plane  containing  the  other  two  axis  [Ref.  Hi.  Figure  32  demonstrates 
this  concept.  In  Figure  32,  the  Z  component  of  the  normal  vector  is  equal 
to  the  cosine  of  the  angle  created  by  the  intersection  of  the  normal  and 
the  plane  containing  the  X  and  Y  axis.  With  this  fact,  we  can  calculate  the 
angle  of  intersection.  Beta,  of  the  roof  and  the  house.  Using  the 
dimensions  of  the  roof  faces,  it  is  now  possible  to  determine  the  height  of 
the  roof  above  the  ceiling  since  sin(Beta)  is  equal  to  the  height  of  the 
roof  above  the  ceiling  divided  by  the  length  of  the  roof  face. 

Once  the  amount  of  materials  required  and  their  costs  have  been 
determined,  a  Raw  Materials  Report  is  output.  The  report  lists  units 
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required  for  each  material  item  and  that  item's  cost.  Following  the  list  of 
individual  items  is  a  total  cost.  Figure  1 1  gave  a  listing  of  this  output. 


Figure  32.  Distance  of  a  normal  vector  along  a  plane. 


After  the  initial  Raw  Materials  Report,  the  example  translator 
examines  possible  material  substitutions  reported  during  the  standards 
checks  and  makes  each  substitution,  one  at  a  time,  to  generate  a  new 
report.  Figure  33  is  an  example  of  a  modified  Raw  Materials  Report  output 
by  the  translator.  It  shows  the  cost  for  parts  when  sub_cover14  is  made 
out  of  tar_paperl  in  place  of  tar__paper2. 
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*  * 

sub-cover 14:  substitute  tar-paper  1  for  tar_paper2 
*  * 

Ras  Mater ials  Report 

Itee 

Cost 

Units  Required 

doorl 

$16 

1 

eindoel 

$30 

1 

concrete 1 

$1737 

347. 5t4 

tar_paper2 

$420 

3.36666 

•oodB 

$3582 

434.194 

tar-paperl 

$504 

3.36666 

hardboard32 

$211 

1.54776 

hardboard34 

$147 

1.54722 

hardboardTS 

$200 

0.6944M 

hardUsood9 

$900 

75 

sheath-paper 24 

$64 

0.850277 

shingle12 

$2020 

1616 

br ick88 

$4224 

3673.2 

paintO 

$8 

1.0317 

paint 17 

$4 

0.551818 

paint21 

$12 

0.023095 

*  * 

Total  •atarial  cost  is  $14079 
*  * 


Figure  33.  Rev  Materials  Report  with  substitution. 
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IV.  Conclusions  ai 


IJIsL-A*  UlllL^l.i 


alias 


A.  CONCLUSIONS 

The  goals  of  this  research  were  to  determine  the  design  requirements 
for  a  generic  CAD  to  CAM  translator,  design  and  implement  a  CAD  to  CAM 
translator  for  a  particular  product  and  in  the  process  determine  data 
requirements  for  CAD  output  and  CAM  input. 

A  conceptual  schema  is  a  useful  tool  with  which  to  model  the  product 
to  be  constructed.  A  simple  hierarchical  structure  for  the  conceptual 
schema  results  in  a  design  schema  in  which  the  translator  can  easily  move 
from  part  to  part,  whether  the  part  is  abstract  or  real.  Prototypes  provide 
an  ideal  abstract  model  of  the  product  design  data  to  be  used  as  input  to 
the  translator. 

Artificial  intelligence  (Al)  oriented  languages  such  as  Prolog  can 
readily  use  prototype  structured  data,  even  using  slot  inheritance  to  fill  in 
unspecified  values.  In  addition,  many  search  methods  have  been  designed 
and  implemented  using  Al  methods  and  they  can  provide  powerful  solutions 
to  difficult  problems  such  as  the  positioning  of  integrated  circuits  on  an 
electronic  circuit  board.  Their  two  drawbacks,  when  compared  to  other 
languages  currently  in  use  today  are  speed  and  availability.  This  is 
currently  being  remedied  with  the  recent  releases  of  affordable  compiled 
versions  of  artificial  intelligence  languages  designed  for 
micro-computers. 

The  translator  is  capable  of  performing  certain  standards  checks  on  the 
design  data,  passing  assembly  information  through  to  CAM  and  also 
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material  requirements.  The  translator  can  also  pass  information  that  is 
useful  to  CAM  at  the  time  of  production  but  cannot  be  verified  prior  to 
actual  product  construction  such  as  temperature  specifications.  In 
addition,  material  substitutions  can  be  recommended.  Using  AI’s  search 
techniques,  the  translator  can  search  for  the  best  material  combination 
while  at  the  same  time  checking  for  the  effects  of  material  substitution. 

B.  RECOMMENDATIONS 

The  next  step  in  this  research  is  to  use  an  actual  operating  CAD  system 
to  generate  the  design  data  and  schema  data  for  input  to  an  expert 
translator.  The  test  products  designed  by  that  CAD  system  should  be  ones 
for  which  there  exists  a  product  CAM  system  for  additional  research. 
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APPENDIX  A 


HOUSE  1  DESIGN 


face5 


31  feet  10  Inches 


FLOORPLAN  sh“'M»l>«r24 

T- 


face  7 


y  axis 

- ► 

x  axis 
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face  1 1 


wood  8 


1 1  inches 


1  inch 


hardboard78 


1 1  inches 


pai  nt  1 7 


Parallel  to  X  axis 


... . —.21  feet  1 0  inches  - 

CEILING  Tgvood8i 


framing 


1 1  inches 


hardboard78 


1 1  inches 


face9 


Parallel  to  Y  axis 
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Exterior  view 
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X  axij 


Exterior  view 


face  1 0 


1 1  inches 

M  . . W- 


hard_vood9 


|  5  inches 


paint  21 
1 1  inches 


1  f<gt 


floor 


'31  feet  10  inches' 


Parallel  to  X  axis 


1 1  inches  tard.voodg  i  t  inches 


floor 


■21  feet  10  inches' 


concrete  1 
foundation 


Parallel  to  Y  axis 
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APPENDIX  B 


PROTOTYPES 


**  *>  attribut*  is  optional 


namo: 


prop*rti*» : 


#a  sub  tup* 

— 

coordmat*s_X 

coordinat*s_Y 

coordinat*s_Z 

contains 

■■■■■■■ 

part  of 

**  =  >  attribute  is  optional 
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*  *>  ittribuit  may  be  inherited 
from  face  prototype 


name: 


properties : 


*  ■>  attribute  may  be  inherited 
from  cover  prototype 
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*  *>  attribute  may  be  inherited 
from  cover  prototype 

**  =  >  items  made  from  the  same  prototype 
are  listed  according  to  their  position 
in  the  face 
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*  =>  attribute  may  b»  inharitad 
from  faca  prototypa 

*•  s>  attributa  is  optional 
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dimensions  \ 


*  height 

•  width 

**  depth 

part  of 


*  *  >  attribute  may  be  inherited 
from  face  prototype 


**  =>  attribute  is  optional 


dimensions : 


*  height 

*  width 

depth 

face 

**  face 

part  of 

*  =>  attribute  may  be  inherited 
from  face  prototype 

**  =>  attribute  is  optional 
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*  =>  attribute  mag  be  inherited 
from  face  prototype 

**  =  >  attribute  is  optional 


IFulffiuJ 


•*  *>  attribute  mag  be  inherited 
from  face  prototype 

**  =  >  attribute  is  optional 
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?t 


*  •  >  ettr  forte  may  be  inherited 
from  face  prototype 

*»  =  >  attribute  is  optional 


2 
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APPENDIX  C 


f*  Interface  File  */ 

start 

not(beg i n_s tds-check ), 
not(beg  i  n_opera  t  i  ocs  ), 
not(set_neg_area  >, 
not(rxs-eateriols-neodod), 
not(eaterials_report), 
not(report_subst). 

beg in_s tds-check  isji(Exters, Inters), 

eri  te(  *  check  for  *  >,  or  ite<  Inters),  eriteC  '  ),eri  te(Exters),nl  ,nl , 
check(Exters,  Inters),  fai  I . 

check(Exters,  Inters) 
property(Exters,eaterial_type,t1aterial  ), 
eater  i  a  I  <  hater  i  a  I ,  SpecJIat _>, 
coeeent—for(  Inters, Spec-Hat, Class), 
coaeent(C  I  ass,  Coeeent ), 
eriteC  '  ),erite(Coeeent),nl,nl . 

check(Exters,  Inters) 
property (Ex tens, ea ter i a l_type,na ter ial ), 
eater  «a  I  (Materia  I,  Spec-Mat, 
check_for(  Inters,  Spec-Mat,  Class), 
eeeber  (Materia  I,  Cl  ass), 

eriteC  '  ),erite< Inters), eriteC  '  ),eri te(Extens), 

eriteC  eeets  requireeents;  alloeed  substitutes  are: '  ),nl  ,nl , 

eeeber  (Other-Mot,  Cl  ass), 

not(Other_Mat  ■  Material ), 

eriteC  -  *  ),erite(Other_Mat),nl,nl, 

asser tz( subs titute(Exters, Other-Mat)). 

check(Exters,  Inters) 
property(Exters, eater  ial-type, Mater  ial  ), 
eater  i  a  I  (Mater  i  a  I ,  Spec-Mat, 
check_for(  Inters,  Spec-Mat,  Cl  ass), 
not  (eeeber  (Material , Class)), 

eriteC  1  ),erite( Inters), eriteC  *  ),eri te(Exters), 

eriteC  does  not  eeet  requireeents;  alloeed  sibstitutes  are: ’ ),nl,nl, 

wester (Other—**?*  C!css> 

eriteC  -  ’  ),erite(Other-Mat),nl,nl, 

asser  tz(subst  i  tute(Exters,  Other-Mat )) . 
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check c Ex tens , door > 
d  i  aeris  i  onCExtens,  D  i  aans  i  on,  Z,  Uh  i  ts  ), 

•  i  n  i  etaCdoor, Ex  tens,  D  i  mens  i  on,  X,  Uh  i  tx  ), 
max  i  auaCdoor,  Exterts,Dieensi  on,  V,  Unity), 
convertCX,Uhi  tx,Hin,Uhi  ts), 
conuert(V,Uhi  ty,hax,Uhi  ts), 

check-s  tandardsCdoor ,  Ex tens,  D  i  sens  i  on,  Z,  H  i  n,  Max  ) . 

check < Ex tens , pane) 
propertyCExtens,qual ity, Value), 
•inieueCpane,Extens,qual ity,Min>, 
check_s tandardsCpane , Ex tens, Vo lue, H i n > . 

check-s tandards C I n tens , Ex t ens , D i Mns i on , Va I ue , M i n , Hax ) 
not  <11  in  >  Value),  not  (Value  >  hax), 

■riteC*  1  >,«riteClntens),«rite(*  1  ),eri  teCExtens) 

■riteC*  passed  -  ’  >,*ri teCDieension),nl,nl, ! . 

check_s  tandards ( I  ntens.  Ex  tens,  D  i  Berts  i  on,  Va  I  ue,  H  i  n,  Hax  ) 
Min  >  Value, 

•riteC*  *  ),eriteC  Intens),  C*  * >,«ri teCExtens), 
■riteC*  fai  led  BiniauB  -  '  >, 

■riteCDiaension),nl,nl, ! . 

check-s tandardsC  I  ntens,  Ex  tens,  0  i  sens  i  on,  Va  I  ue,  h  in,  hax) 
Value  >  Hax, 

erite<*  ’ ),erite<lntens),erite(*  * ),eri te(Extens) 

•riteC '  fai led  aaxiaue  -  ' ), 

*r I te<Dieension),nl ,nl, J . 

check_standcrds<pane,Extans,Value,nin) 
notCHin  >  Value), 

■riteC*  '), •riteC* pane  *  >,*rl teCExtens), 

•riteC*  passed  quality  check*  ),nl,nl, ! . 

check_standards<pane,Extens,Value,hin) 

Hin  >  Value, 

par t_of CEx tens, U i ndo» ), 

i s_aCU i ndoe, • i ndoe ), 

■riteC*  * >,«riteC*pane  '  ),«ri  teCExtens), 

•riteC*  failed  BiniauB  quality  check*  ),nl, 

■riteC*  -  part  of  * ),«ri teCUindos),nl,nl, I . 


beg in^operat ions 
is_a(H, house), 
notCdo-asseeblyCH)), 
note opera t i ons_repor tCH ) >, 
fai  I . 

do-asseeblyCH)  asseebleCH,house), fai I . 
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operatlons-reporttH) 

nl,nl, 

wr  1 t«< . '*»'»■' . ***** . . 1 1 *  ******* . . .  >,nl , 

sriteC*  *'),nl, 

er i te<  *  Production  Sequence  Report  for  * >, 
eri  te(H),nl,nl, 
print-style(H), 

eriteC*  *>,nl, 

er  i  te<  ‘  *  * ******** » * ********  1 1  m*****************  1 1**  •  ),nl,nl, !, 

operotion(Ex  tens,  Function,fittribute1,  Rttr  ibute2>, 

pr  i  n  L_operat  i  on(Extens,  Func  t  i  on,  fit  tr  i  bute  1 ,  Rttr  i  bute2  >, 

fai  I . 


prinL-operotionfco— ent,Co— ent,_,_) 

nl, 

wr  i  te<  •  ************  ********* 

eriteC* 

eriteC  cownt  :  • ), 
sri  teCCoeeent), 
nl, 

eriteC* 

eriteC  ♦*♦*»»*♦♦»»»»♦♦♦♦♦♦»♦♦»***>*** 


♦•>,nl. 


*-),nl, 

•**  >,n!  ,nl , ! . 


pr  inLjoperati on (Ex tens, Rttr i bute  1, flttr  ibute2, Rttr  ibute3) 
eri  te(Extens), 
naee<Extens,L1), 
length(L1,H1), 
tab<  15  -  HI), 
eri  te<Rttr  ibutel ), 
get-naee_len(Rt  tribute  I,  M2), 
tab<  13  -  M2), 
eri  te<Rttribute2), 
ge  t_naee_l  en<flt  tr  ibute2,  M3  ), 
tab<1?  -  M3), 
erite<ftttribute3),nl,  • . 

get_naee_len(Maee,Len) 
nueber  (ftaee  ), 
not<  integer (Mae#)), 
naM(Naee,L1>, 
length(L1,N1), 

Lon  is  (Nl  -  4),l. 


get— naee_ I  en(Maee,Len) 
naee(Maee,L1>, 
length(L1,Len), I . 
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print_style<H> 
proper  ty<H,  subtype, Hstyie), 
eriteC  -  house  style  is  1  >, 
erite(Hstyle),n(, 
eriteC  and  consists  of  *  >, 
contains(H,L), 
eri  te<L),nl, ! . 

print_style<H>. 

t*  routines  to  calculate  surface  area  of  faces  taken  up  by  */ 
f*  doors,  e indoes,  openings,  and  connections  */ 

set_neg_area 

is_a(Extens, face), 

set_neg_jarea2<Extens,  I  ),0,  feet),  fal  I . 

set_neg_area2<Face,L,Area,Units> 
facef Ex tens, Face ), 
notCeeeber <Ex tens, L > >, 
i s_a(Extens, • i ndoe ), 
di eens  ion (Ex tens,  height,  Ht,Htuni  ts), 
dieension(Extens,eidth,Ud,Uduni ts), 
conoert(Ht,Htuni  ts,Nee_Ht,Uni  ts), 
conuer  t  (Ud,  Udun  i  ts,  Nee_Ud,  Units), 

Nee_frea  is  (Area  ♦  (Hee_Ht  *  Nee_Ud)), 
set_neg^area2(Face, CExtens|Ll,Nee_ft~ea,Uni ts), I . 

set_neg^area2(Face,L,ftrea,Units) 
face<Extens, Face ), 
not(sesfasr<Extsns,L)), 

I s_a<Extens, door ), 

dieension(Ex tens, height, Ht, Htuni ts), 
d i eens i on<Extens, e i dth, Ud, Udun i ts ), 
conuert(Ht, Htuni ts,Nee_Ht,Uhi ts), 
conuert(Ud,Uduni ts,Nee_Ud,Uhi ts), 

Nee_Area  is  Cft^ea  +  (Nee_Ht  *  NeeJid)), 
set_neg_jarea2<Face,  lExtens|L J,Nee_Area,Uhi ts), ! . 

set_neg-area2(Face,L,Area,Uhits) 
face<Ex tens, Face ), 
not(eeeber(Extens,L)), 
i s_a(Ex tens, connect i on ), 
geoeetry(Ex tens, rectangle), 
d ieens ion(Extens, he ight,Ht, Htuni ts), 
d i eens ion<Ex tens, ei dth, Ud, Udun i  ts), 
conuert(Ht, Htuni ts,Nee_Ht,Uhi ts ), 
conoert(Ud,Uduni  ts,Nee-«d,Uhl  ts), 

Nee-Area  is  (Area  +  <Nee_Ht  *  Nee_Ud)), 
set_neg_area2(Face, lExtens|Ll,Nee_Area, Units), ! . 
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s«t_neg_x«''ea2(Face,L,f¥'ea,U'ii  ts)  :- 
face (Ex tens, Face), 
not(eee ber(Extens,L>), 
is_a (Ex tens, connect ion), 
geoee try (Ex tens, square), 
d i sens i on(Ex tens , he i ght , Ht , Hiun i ts >, 
ccnwert(Ht,Htuni  ts,Nee_Ht,Uni ts), 

Mea_ft^ea  is  (Area  +  (Mee^Ht  *  Nee_Ht», 
set_neg_areo2(Face,  [Extens|U,Nee_Area,Uhi  ts), ! 

set_neg_area2(Face,L,Area,Units> 
face (Ex tens, Face), 
not(eeeber(Extens,L>), 
i  s_a(Ex  tens,  connect  i  on  ), 
geoee try (Ex tens, square), 
diaension(Extans,aidth,Ud,Uduni  ts), 
ccnuert(Ud,Uduni ts,tfee_Md,Uhi ts), 

NeeJVea  is  (f¥ea  +  <Nee_JJd  *  Nee_Ud)), 
set_neg^area2(Face,  IExtens|L),Nee_Area,Uni  ts), ! 

se t_neg_area2(Foce,L, Area, l*i i ts) 
face(Ex tens, Face ), 
not(eeeber(Extens, L ) ), 
i s_a(Ex tens, connect i on ), 
geoee try (Ex tens, circle), 
d i eens i on(Ex tens, rad i us , Bd, Rdun i ts ), 
convert(Rd,Rduni ts,Hee_Rd,Uni ts). 

Pi  is  3.14150, 

Mee-flrea  is  (Rrea  ♦  (Pi  *  Nee_Rd  *  Nee_Ad», 
set_neg_area2(Face,  (Extans  |  L 1,  Naa_Area,  Uh  i  ts), ! 

se t_neg_area2(Face,L, free, Uni ts) 
facet  Ex  tens.  Face  ), 
not  (eeeber  (Ex  tens,  L  )  ), 
is_a( Ex tens, opening), 
geoee try(Ex tens, rectangle), 
d  i  eens  i  on(Ex  tens,  he  i  $it ,  Ht ,  H  tun  i  ts  ) , 
d  i  sens  ion(Ex  tens,  e  idth,  Ud,  Udun  i  ts  ), 
conuert(Ht,Htuni  ts,Nee_Ht,Uhi  ts), 
canwert(Ud,Uduni  ts,Nee_Ud,Uhi ts  ), 

HeeJIrea  Is  (ft-ea  ♦  (NeeLHt  *  ftee_Md>), 
set_neg_area2(Face,  (Ex  tens  |L  J ,  N ee-frea.  Units),! 
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set_neg_jarea2(Face,L,Area,Uhi  ts) 
face(Ex  tens,  Face), 
not(eosbrr<Extens,L)), 
is_a( Ex tens, opening), 
gecee try (Ex  tens, square), 
d i aens i on(Extens, he i ght, Ht, Htun i ts ), 
convert(Ht,Htuni ts,Nee_Ht,Uni ts), 

Nee_ft~ea  is  (Area  +  (Nee_Ht  *  Nee_Ht>), 
set_neg_area2(Face, [ExtenslL  ],Nee_Frea,Uni ts), ! 

set_neg_area2(Foce,L,firea,Uni ts) 
face(Ex tens, Face), 
not(eeeber(Extens,L )), 
i s_a(Ex tens, open ing), 
geoeetryCExtens, square ), 
d i eens i onCExtens, e i dth, Ud, Udun i ts ), 
convert (Ud,Uduni ts,Nee_Ud,Uhi ts), 

Nee-Area  is  (Area  +  (Nee_Ud  *  Nee_Ud)), 
set_negjarea2(Face,  tExtenslL ),Nee_Area,Uhi  ts>, ! 

set_neg_jarea2(Face,L, Area, Units) 
face(Ex tens, Face), 
not(eeeber(Extens,L)), 
i s_a(Ex tans, open ing), 
geoee try (Ex tens, circle), 
d i eens i an(Ex tens, rad i us, Rd, Rdun i ts ), 
convert(Bd,Rduni ts, Nee-Ad, Uh its). 

Pi  is  3. 14150, 

t1ee_Area  is  (ft~ea  ♦  (Pi  *  Nee-Ad  *  Nee_Rd>), 
set_neg^area2(Face,  ( Ex  tens  (LI,  Nee-Area,  Un  i  ts),  I 

set-neg-area2(Face,L,Area,Units) 
asser  t_z(get_neg_area(  Face,  Area,  Uhi  ts)). 

get_jarea(Extens, Area, Uni  ts) 
par t_nf (Ex tens, Face), 
diaension(Extens,hei<?it,Ht,Htuni ts), 
d i eens i on(Extens, e i dth, Ud, Udun i ts >, 
get_neg_area(Foce,Neg_Area,uni ts), 
convert(Ht,Htuni ts,Nee_Ht,Uhi ts), 
convert(Ud,Uduni ts,Nee_Ud,Uni ts). 

Area  is  ((Noe-Mt  *  Nee_Ud)  -  Neg-Area), I. 

geEjarea(Extens,f^ea,Uni ts ) 
par  t-jof  (Ex  tens.  Face  ), 
dieension(Face, height, Ht,Htunits), 
d  i  eons  ion(Face,ei  dth,  Ud,  Udun  i  ts), 
get-neg_crea(Face,Neg_Area,Uhi  ts ), 
convert(Ht,Htuni  ts,Nee_Ht,Uhi  ts), 
convert(Ud,Uduni  ts,NeeJld,Uhi  ts). 

Area  is  ((Nee_Ht  *  Nee_Ud>  -  Meglflrea), ! . 


get— area (Ex tens, Area, Units) 
par  Lj>f<  Ex  tens.  Face), 
dieension(Face, height, Ht,Htuni  ts), 
d  iaens  i  on<Extens,  •  i  dth,  Md,  Mdun  i  ts  >, 
get_neg_area(Face,  Neg-Area,  Uh  i  ts  ), 
convert<Ht,Htie»i  ts,hee_Ht,  Units), 
conoert(Ud,Uduni  ts,Ne«_Ud,Uni  ts), 
firea  is  <<Nee_Ht  *  Mee_Wd)  -  Meglflrea), ! . 

get— area (Ex tens, firea, Uni ts) 
par t_of (Ex tens, Face ), 
dieension(Ex tens, height, Ht,Htuni ts), 
d i eens i onCFace, ■ i dth, Ud, Udun i Is ), 
get_neg_jarea(Face,Neg_firea,Uhits), 
convert(Ht,Htuni  ts,Nee_Ht,  Units), 
convert  (Ud,Uduni  ts,hee_Md,Uni  ts  ), 

Area  is  <(Nee_Ht  *  Mee_Ud)  -  Neg_Area>, !. 

■ateriais-report 

assertz(»at-cost(0>>, 

nl,nl,nl,erite('  Rae  Materials  Report' ),nl,nl, 

•riteC  I  tee  Cost  Uni  ts  Required'  >,nl,nl, 

■aterial-l  ist (Materia I  ,NueJUni  ts,  I  tueuCost), 

NeauDost  is  f loor(lte*JCost>, 
pr  int_eat_report(Mater  ial  ,NueJLIni  ts,Nee_Cost ), 
update_Mt-£OSt(MeeuCost),  fail. 

•ateriais-report 

eat_cost(Total  ),r»l  ,nl , 


■****' ),nl. 

■riteC* 

*'),nl. 

•riteC  Total  Material  cost  Is  $' ), 

sri  te(Total  >,nl. 

•riteC* 

*'),nl. 

fail. 

update_Bat_£ost< I teejCost) 
retract(eat— cast(Total )), 
Mee_Total  is  (Total  ♦  I  teejCost), 
assert2(eat_ cost (Mee_ Total )), I . 
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print_eat_report(Materiat,HueJUhits,Tot_Cost) 
mr  i  te(Material  ), 
naee (Materia  I  ,L1 >, 
length(Ll,N1), 
tab<  1?  -  HI), 

erite(‘$' ),eri  te(TotJCost), 

name  (To  t-Cos  t ,  L2  ), 

length(L2,H2>, 

tab< 15  -  N2), 

mr  i  te(NueJUn  i  ts  >,  n  I ,  n  I , ! . 

report_£Lbst 

nl,nl,nl, 

eriteC  Start  Roe  Materials  Report  (»/  substitute)'), 
nl,nl,nl, »ai I . 

report _subst 

subst i tuteCEx tens, Subs t_Mat ), 
rep I ace-data (Ex tens. Subs t_rtat ), 
not(rae_eater ials_needed), 
not (eater i a i s_r«por t ), 
restore-jdata,  fai  I . 

rep  I acejdata( Ex tens, Subst-Mat) 
re trac t < ea  Ljcos t < _ ) ) , 
retract(eaterial_l ist(_,_,_)),  fai  I . 

replace-jdata(Extens,Subst-flat) 


re troet< subst i tute(Extens, Subst-Mat )), 
retract(property(Extens,eaterial_type,Material )), 

******  ),nl. 

mr i te( ' * 

eriteC  '  ),erite(Extens), eriteC :  substitute  ’  ), 
or  i  te(Subst-Mat),er  i  te(  '  for  '  ),er  i  te(Mater  ial  ),nl , 

*  ),nl. 

eriteC* 

*'  >,nl, 

•  \  _  »  _  i 

asser  tz(property(Extens,  eater  i  al -type,  Subst-Mat )  ), 
assertz(teap(Extens,eaterial-type,Materiat  >), ! . 

restore-data 

retroct( t esp(Extens,ea ter ial_type,  Material  )>, 

re  trac  t (proper  ty (Ex  tens ,  ea  ter  i  a  I -type ,  -  )  ) , 

asser tz(prcperty(Extens, eater ial_type,Hat«rial  >>, ! . 
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/+  Standards  Fila  */ 


einieue(door,doort,eidth,32,  inches). 

• inieueCdoor, door 1, height, 6, feet). 
eaxieue<door,door 1,eidth,4, feet), 
eax i eua<door , door 1 , he i ght, ?, f ee t ) . 
einieue(door,_,depth,2,  inches). 
eaxieue(door,_,depth,3,  inches). 

einieue(pane,_,qual  ity,3). 

rneoentCeosonry,  ‘approved  eethods  oust  be  used  for  building  easonry  eails 
■hen  outside  air  teeperatire  drops  beloa  40  deyees  farenheit’). 
coeeent_for<couer,brick,easonry). 
coeeent_for  (cover,  concrete-block,  easonry). 
coeeent_for<sub-couer,  brick,  easonry). 
coeeent_far(sub_jcover ,  concrete-b  I  ock,  easonry  > . 

coeeent( freeing, 'grade  earks  oust  be  clearly  visible  on  all  fraeing 
eeebers  for  inspection'). 
coeeent_for< fraee, eood, f roe I ng ) . 

check_f or (sub-cover, tar_paper, I  tar-paper  1, tar -paper 2, tar_paper3) ). 
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f+  ftsseetoly  Fite  */ 


f*  start  elth  information  on  face  normals  +/ 
asseeble<H,house) 

assertz(operation(coeeent, ‘noreal  for  each  face  I  isted* 
as ser tz ( opera t ion ( ‘FACE* ,  *X",  “V,  *Z‘  >), 

assertz(operation<* _ ' ,  ’ _ ‘ ,  * _ * ,  * _ ‘  >>, 

is_a(Foce, face), 

norea I _X<Face, X ), 

norea I _V(Face , V ), 

norea I _Z(Face, 2 ), 

assertz( opera t i on(Face, X, V, 2 > ) . 

/*  start  eith  fraee  */ 
asseeble<H,house> 

assertz(operqtion<coeoent, ‘erect  foundation  and  fraee* 

f*  do  foundation  fraee  */ 
asseebleCH, house)  :- 
is^a<Vface, face), 
trcns_par tof (Vface, H ), 
norea I _2(V face,  1), 
conta i nsfVface,  L ), 
eeeber (Fraee, L ), 
is_a(Fraee, fraee), 

proper  ty  (Fraee,  eater  i  a  I  -type,  ft  type  ), 

assertz<operatlon(Fraee,asseetole,  'eaterial  type:  * ,ntype>>. 

t*  do  fraee  perpendicular  to  ground  */ 
nrreeh I e(H, house ) 
is_a<Vface, face), 
trans_par tof (Vface, H ), 
noreal_V<Vface,0), 
norea I _2<Vface,0 ), 
con to i ns<Yf ace, L >, 
eeeber(Fraee,L), 
is_a(Fraee, fraee), 

proper ty(Fraee, eater i al -type,  (Hype >, 

assertz(operation(Fraee,asseeble, 'eaterial  type:  ’,Htype)). 

asseeble(H,house)  :- 
is_a(Vface, face), 
trans_partof (Vface, H ), 
norea I _X( Vface , 0 ), 
norea I _Z( Vface, 0 ), 
contains(Vface,L), 
eeeber(Fraee,L), 
is_a(Fraee, fraee), 

proper ty(Fraee,ea ter  iat  _type,Htype), 

assertz(operation(Fraee,asseeble,  'eaterial  type:  *,f1type)). 
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/*  ceiling  fraee  */ 
asseeble(H,house) 
is_a(Yface, face), 
trans_partof  (Vface,  H  >, 
norea  I  _Z(Yface,  - 1 >, 
contains(Vface,L>, 
fber(Fraee,L>, 
is_a(Fraee,  free*), 

proper ty(Fraee, eater ial_type,ntype), 

assertz(operation(Fraee,asseeble, ‘eaterial  type:  ’,Mtype)). 

/*  roof  fraee  */ 
asseebte(H,house) 
i suaCRoof , roof >, 
trans_partof (Hoof ,H >, 
is_a(Vface, face), 
trans-par to f (Yface, Hoof >, 
contains(Yface,L), 
eeeber (Fraee, L>, 
i s-a(Fraee, fraee ), 

proper ty<Fraee, eater i a  I -type, Htype ), 

assertz(operation(Fraee, assemble, ‘eaterial  type:  ' ,Htype>>. 

/*  no*  put  doors  in  place  */ 
asseeble<H,housa>  :- 

assertz(operation<coeeent, ‘put  door  freeing  in  place' 

asseeble(H,house> 
is_a< Door, door), 
trans_par tof (Door , H ), 
property<Door, eater i a I -type, Htype >, 

assertz(operation(Door,asseeble, 'eaterial  type:  ',Htype>>, 
get_faces(Door, Face 1 , Face2 ), 

assertz(operation<", attach  to: ',Focel,Face2)>, 
par t_of (Door, Face3>, 

assertz(operation( " , '-  location' , 'relative  to’,Face3>), 
coord  inates_X(  local ,  Door,  X,  Uhl  ts_X>, 
coord i nates_V( local , Door, V, Uni ts_Y>, 
coord inates_Z( local ,Door,Z,Uhi ts_2), 
assertz(operation(", '  X  coordinate', X,Uhi  ts_X>), 
asser  tz(  opera  t  ion  ( " , '  Y  coord i note', V, Uhl ts_Y>>, 
as  ser  tz  (  opera  t  ion  (  " , '  Z  coordinate*  ,Z,Uhi  ts_Z». 

/*  put  eindoe  sills  in  place  */ 
asseeble(H,house)  :- 

asser tz (opera tion(coeeent, 'put  eindoe  freeing  in  place' 
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asseable<H,house) 
is_o<U,e  indoe), 
trtrts-par  tof  <H,  H  >, 
contains(U,L), 

■caber <Si  I  l,L), 
is_a<Si 1 I  ,si 1 1  ), 

ass«rtz<optration<Si 1 1, assemble, 'eindoe  si  II  for:  ‘,U>>, 
get_f  acesfli, Foce 1 , Face2 >, 

asser  tz<operation<”,'-  attach  to:  ’,Face1,Face2>), 
part_jof  <U,  Fac«3  ), 

asser tz< opera ti on < '  location’ /relative  to’,Face3>>, 

coord i nates  _X< local ,U,X,Uni ts_X>, 
coord inates_V< local ,U,V,Uhi ts_Y), 
coord inates_Z( local ,U,Z,Uhi ts_Z), 
assertz<operation<”,  ’  X  coordinate' ,X, Uni ts_X>>, 
asser tz ( opera t ion < 1 ' /  V  coord i note’ ,V, Uni ts_Y)>, 
assertz<operation(‘ ’/  2  coord i note', Z,Uhi ts_2>). 

/ *  put  up  exterior  siding  ♦/ 
asse*bie(H,house)  :- 

as sertz(  opera t i ontco— ent,  'put  up  exterior  siding', 

asseable<H,house>  :- 
is_a<E, exterior), 
trans_par tof <E, H ), 
contains<E,L), 
assembled, face). 

/+  put  up  roof  */ 

osffoeb I e<H, house ) 

assertz<operatlon<coment,  ’put  roof 

assembled,  house) 
is_a(R,roof ), 
trans_partof <R, H ), 
contains<R,L), 
assembled,  face). 

/*  put  up  faces  for  each  rooe  */ 
assembled,  house) 

asser tz<operation(co— ent, 'put  up  faces  for  each  rooe* 

assembled,  house) 
is_a<R,raoe), 
trans-par tof <R, H ), 
contains(R,L), 
assembled,  face). 

f*  put  ip  ■ indoes  */ 
ost eeb I e(H, house ) 

asser tz< opera t I on< comment, ’put  ■ Indoes  in  place’ ,_,_>). 
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assaab  I  e<H,  house) 
is^a<U,eindoe), 
trans_partof(U,H), 
contains<U,L), 
mhwr<P,L), 
is_ja<P,pane>, 

•«*b«r<C,L), 

is_a(C,case), 

assertz(operation(U,  'complete  using' ,P,C)>. 

/*  taka  cara  of  finish  on  aindoas  and  doors  */ 
asseable(H,house> 

assertz<oparation<coaaant, 'put  finish  on  aindoas  and  doors' ,_,_)). 

assaab le(H, house) 
finish. 

/*  take  care  of  door  knobs  and  hinges  V 
assaab I e(H, house) 

asser tz (opera tion(coaaent, ‘put  on  door  knobs  and  hinges' 
asseebie<H, house) 

is_a(D,door), 
trans-par tof <D, H ), 
assaab I a(D , door ) . 

t*  taka  core  of  paint  on  faces  */ 
asseable<H,house) 

assertz(operat  ion(coaaent/put  final  paint  on  faces' 

assaab  I  e<H,  house) 
is-ja<R,roof  ), 
trans_partof  <R,  H  ), 
contains<R,L), 
paint-face(L). 

asseable(H,house) 
is-xKE, exterior), 
trans_partof<E,H), 
contains<E,L), 
paint_face<L). 

assaab I a<H, house) 
is_a(R,rooa>, 
trons-partof  <R,  H  >, 
contains<R,L>, 
paint-faced. ). 
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■*  *  ■*  1* 's  'S;  's 


routines  to  put  up  sub-covers  aid  covers  for  a  given  */ 
list  of  faces  sipplied  as  first  argument;  these  routines  */ 
look  for  cosoon  eater ials  to  help  set  priority;  all  */ 
sub-covers  are  handled  prior  to  covers;  */ 
covers  ehich  are  paint  are  left  to  be  performed  at  a  */ 
later  ties;  all  scb^couers  and  covers  */ 
associated  eith  the  floor  are  performed  last  */ 


assembled.^ face) 
assemble 1(L; 1 1; face). 

assembled., face) 
member (Face, L), 
normal _Z( Face, 1), 

assertz<operotion< comment, ‘bui Id  floor  as  last  step', -,_)), 
contains (Face, LI ), 
assemble2( IL 1 J , (LI), face). 

assemble1(L,L1,face> 
member (Foce,L), 
not (norma I _Z (Face, 1)), 
delete(Face,L,L2), 
conta i nsCFace, L3 ), 
assemble 1(L2, (L3|L1 1, face), ! . 

assemble 1(L,Lt, face) 
assemble2(L1,L1, face), ! . 

assemble2<Ful I _L,L, face) 
member (Face, L ), 
delete(Face,L,L1), 
member ( I tem,Face), 
i s_a( I tem, sub-cover ), 
property (I tem, material -type, htype), 
opera  1 1  on(Y,  _,  _,  II  type  ), 
member(Face1,Ful  l_L), 
member  (V,  Face  1), 

assertz(operation< I tem, assemble, 'material  type:  ',Htype», 
delete<  I  tem, Face, Face2), 

asssmble2(Ful l_L, (Face2|L1 1, face), ! .  * 

assemb  >2(Ful l_L,L, face)  : - 
member (Face, L), 
delete(Facs,L,L1), 
member ( I tem, Face), 
is_a( I tem, sub-cover), 
proper  ty(  I  tem,  ma  ter  i  a  I -type,  htype  >, 

ossertz(operqt  ion(  I  tem,  assemb  I  e,  material  type:  ', htype)), 

delete(  I  tem, Face, Face  t  >, 

assemb  I  e2(Fu  1 1  _L ,  (Face  1  ( L 1) ,  f  ace  ), ! . 
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assesble2(Ful l_L,L,face) 

■■eirrTnrt.l  \ 
delete<Foce,L,L1>, 

M«b<r(  I  tee, Face), 
isji(  I  tee, cover), 

proper ty(  I  tee,  eater  ial_type,  htype ), 
not <  I  i qu i dOltype, pa i nt >, 
opera  t  i  on<  V,  _,  _,  Mtype  ), 
eeeber(Facet,Ful  l_L>, 
eeeberCV,  Facet), 

assertz<operationdtee,asseeble,  ‘Material  type:  ’  Htype)), 
deleted  I  tee, Face, Face2), 
asseeb)e2(Ful IJL, lFace2|L1], face), ! . 

asseeble2<Ful I _L,L,foce> 
eeeber (Face, L), 
delete(Face,L,L1>, 
oeober( I  tee, Face), 
is_a( I  tee, cover), 

proper ty< I  tee, eater ial  _type,Mtype), 
not<  I  iquidttltype, paint, 

assertz(operation(ltee,asseeble, ‘eater ial  type:  Mtype)), 
deleted  tee,  Foce,  Facet), 
asseehle2<Ful l_L, [Facet |L II, face), I . 

asseeble2(Ful l_L,L, face). 

t *  take  care  of  finishes  */ 
finish 

proper ty(F, f i n i sh_type, Ftype ), 

proper  ty<F,  f  i  n  i  sh^co  I  or ,  Fco  1  or  ), 

asser tz  (opera t i on<F, f i n i sh, F type, Fco I or )  ) . 

f*  asseebie  door  knob  */ 
asseeble(D,door) 
proper  ty<0,  knob-type,  Ktype  ), 
asser tzfoperat i on<D, asseeb I e, knob, K type >) . 

f*  asseebie  door  hinges  */ 
asseeb I e<0, door) 
proper ty<0, h i nge-type, Htype ), 
asser tzCoperat i on(0, asseeb I e, h i nge , Htype >) . 


88 


/*  routines  to  apply  paint  to  faces;  acts  on  covers  only  */ 
paint-face(L) 
eeeber(Foce,L>, 
noreal_Z(Face,-l >, 
contains(Face,L1), 
enefter (Cover, L  t ), 
i  s_a(Cover ,  cover  >, 

proper ty < Cover , ea ter i a I _ type , M type > , 

I  iquiddl  type,  paint, 

assertz(operat i on (Cooer, paint, ‘Material  type:  ',Mtype>), 

delete<Face,L,L2), 

paint_face(L2), ! . 

paint-face(L) 
eeeber(Face,L>, 
noreal_V(Face,0), 
norma I _Z(Face, 0 >, 
con ta i ns (Face, LI), 
eeeber (Cover, LI), 
i s_a(Cover, cover ), 

property<Cover, eater i a I -type, M type  ), 

I  iquiddltype, paint,., _, _,_,_), 

assertz(operation<Cover,paint, 'eater iai  type:  ',t1type», 

delete(Fac*,L,L2>, 

paint_foce<L2), ! . 

palnt_face<L) 
eeeber(Face,L), 
noreal_X<Face,0), 
norea  I -ZCFace,  0  ), 
contalns(Face,L1 ), 
eeeberCCover ,  L 1 ), 
i s_a< Cover, cover  >, 

property(Caver, eater i a I -type, M type ), 

I  iquidOltype, paint, 

assertz( opera t  ion  (Cover,  paint,  'eater  ial  type:  ',Htype)), 

delete<Face,L,L2), 

paint_face(L2), ! . 

paint_face<L> 
eeeber<Foce,L), 
norea I _Z(Face, - t ), 
contalns(Fac*,L1 ), 
eeeber (Cover, LI ), 
i s_a(Cover, cover ), 

proper ty(Cover, eater ial -type,f1type ), 

I  i<*jid(Mtype, paint, 

assertz(aperation(Cover,paint, 'Material  type:  ',Htype)), 

delete(Face,L,L2), 

paint-face(L2), I . 
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paint_foc*<L) 
eeeber(Face,L)# 
containsCFace, L 1 >, 

■■■her<Cooer,Lt), 
i s_a<Cover, cower ), 

proper tyfCouer, eater i a I -type, Mtype >, 

1 iquid<htype, paint, 

asser  tz  (operation (Cower, pain t, 'eateria I  type:  Mtype)), 

delete<Face,L,L2), 

paint_face(L2), ! . 

paint-face(L). 

f*  routine  to  get  the  too  faces  ehich  an  i tee  is  associated  eith  */ 
get-faces<l tee, Face 1,Face2> 
facet I  tee, Face  1 ), 
face<ltee,Fac*2), 
rvoUFocel  =  Face2), !. 
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/*  Ha ter I a Is  File  */ 

f*  Materials  for  doors  */ 
rae_eaterials_needed 
i  s_a<Ex  tens ,  door  >, 

eater  i  a  I  (Ex tens,  Cost ), 

add-eateriaKExtens,  1,Cost>,  fai  I . 

roe-eater i a ls_needed 
i  s_a(Ex  tens ,  door  ), 
proper ty(Extens, fin ish_type, Paint), 

I  iquid(Paint,_,AreaJCou, AreaJUhi  ts,  Cost ), 
dieension(Ex  tens, height, OrgJtt, HtJUhl  ts), 
d  i  eens  i  on(Extens,  ■  i  dth,  OrgJJd,  UdJUh  i  ts  ), 
d  teens  i  on(Extens,  depth,  Org_Dp,  DpJUn  i  ts  >, 
conwert(Org_Ht,HtJJn«  ts,Nee_Ht,Area_Uni  ts), 
conoer  t(Org_Ud,  iJdJUh  i  ts.  Nee  JJd,  RreaJJn  i  ts  ), 
conuert(Org_Dp,DpJUni  ts,  Nee-Dp,  AreoJbn  its), 

Area  is  <<2  *  Nee_Ht  *  Nee_Wd)  ♦  <2  *  Nee_Ht  *  Nee_Dp>  + 
<2  *  NeeJJd  *  Nee_Dp)), 

NueJUnits  is  (Area  /  AreaJCoo), 

Tot  Cost  is  (NueJUnits  *  Cost), 

Odd-Material (Paint, NueJUhi  ts,  Tot-Cost), fai I . 

/*  Materials  for  eindoes  */ 
raeeaterials_needad 
IS-ja<Extens,eindoe), 

eater  i  a  I  (Extern,  Cost  >, 

add-eateriaKExtens,  1,Cost),  fai  I . 

rae_eaterials-needed 
is_a(Uindoe,e  indoe), 
part-jof  (Ex  tens,  14  Indoe), 
is-a(Extens,si 1 1 ), 
property<Extens,f ini sh_ type, Paint), 

I  iquid(Paint,_,Area_Cow,ArecLJUni  ts,_,_,Cost), 
conoerUAreajCoo,  AreaJUhi  ts,Nee_Area,  feet), 

Nee_Area2  is  ((Nee-free  *  Nee_Area)  /  Area-Coo), 
d i eens  I on(H indoe, height, Crg_Ht,HtJUhi  ts), 
d i eons i on(U i ndoe, e i dth, OrgJJd, UdJUh i ts >, 
par  t_of<U  indoe.  Face), 
d  i  eens  i  on(Foce,  depth,  Org-Dp,  DpJUh  its), 
conoert<Org_Ht,HtJL)ni  ts,Nee_Ht,AreaJUni  ts), 
conuert(Org-Ud,UdJUni  ts,Nee_Ud,  AreaJUn  i  ts  ), 
conoert(Org_Dp,DpJUhi  ts,Nee_Dp, AreaJUhi  ts). 

Area  is  <(2  *  Nee_Ht  *  Nee-Dp)  +  (2  ♦  NeeJJd  *  Nee_Dp)), 
NueJUnits  Is  (frea  /  frea-Coo), 

Tot_Cost  is  (NueJUnits  *  Cost), 
add-Materiai (Paint, NueJUnits, TotJCost), fai I . 
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Materials  for  frames;  assumes  1  square  foot  of  area  ♦/ 
requires  a  t  foot  length  of  fraee  mood  *f 

raeuMtcrials-needed 
is_a(Extens, fraee), 

dieension(Extens, height, Height, HtJJhi ts), 
dieension(Extens,eidth,Uidth,UdJUhi ts), 
cowert(Height,Ht_Uni  ts,  Nee-Height,  feet), 
conuert(Uidth,UdJJhi  ts,Hee_ilidth,  feet ), 
proper  ty<Extens,  eater  lal_type,  hater  I  al  ), 

eater  ial  (Material  ,eood,Ht,Htuni  ts,Ud,Uduni  ts,Dp,Opuni  ts, _,Cost), 
longest_dieension(Ht,Htuni  ts,Ud,Uduni  ts,Dp,Dpuni  ts,Len,Lemmi  ts), 
conuert(Len,Lenuni ts,NeeJLen, feet ), 

Area  is  (Mee-Height  *  Mee_Width), 

MueJUhi ts  is  (Area  /  Hee-Len), 

Tot-Cost  is  (NuLJUInits  *  Cost), 

odd  eater i a KMaterio I, HueJUh its, Tot-Cost), fai  I . 

roM-eateriais-needed 
is_a(Extens, fraee), 
not<di eens ion(Extens,eidth, _,_)), 
no t < d i eens i on < Ex tens , he I gh t , 
property(Extens,eaterial-ijype,nateriai ), 

Material  (Material,  Mood,  Ht,Htunits,Ud,Udunits,Dp,Dpunits,_,_,-,_,  Cast), 
get_area(Extens,  frea,  Un  i  ts  ), 
convert (Area, Uni ts,Mee_ft'ea, feet), 

Nee_ft~ea2  is  ((Nee_A~ea  *  Hee_Area)  /  Area), 

iongest_jdieension(Ht,Htuni  ts,Ud,Uduni  ts,Dp,Dpuni  ts,Len,Lenuni  ts), 
canuer  t(Len,  Lenun  i  ts,  Nee_Len,  feat ), 

HueJUhits  is  (Area  /  Hee_Len>, 

Tot_Cost  is  (NiaLJLJnits  *  Cos*.), 

addueater ial (hater ial,HuM-l)nits,TotJCost), fai  I . 


92 


rae_eaterials_needed 
norMU(Fact,-l), 
par  i-ot  <Ex  tens.  Face), 
i s_a(Extens, fraee ), 

proper ty(Extens,  water ial_type, Material >, 

eateriaUMaterial  ,eood,Ht,Htuni ts,Ud,Uduni ts,Dp,Dpuni ts,_,  _,  _,  _,Cost), 

longestjdieension<Ht,Htuni  ts,Md>Uduni  ts,Dp,Opuni  ts,Len,  Lemni  ts), 

cor\wert(Len,Lenuni  ts,Nee_Len,  feet), 

is_o< Roof, roof >, 

par t_of <Face2, Roof ), 

is_a<Face2, face), 

part-of <Extens2, Face2 ), 

is_jaCExtens2,  fraee), 

noreal_Z<Fec*2,CosZ), 

di»enslofi<Extens2, height, Ht_face, Ht_face_jjn(  ts), 
coooert(Ht„face,Ht_face_u-ii  ts,Nee_Ht_face,  feet), 
d  i  eens  i  on<Extens2,  •  i  dth,  Hd_f  ace,  Ud_f  ace-jun  i  ts  ), 
conuert<U4-face,Ud_face_Lni  ts,Nee_Ud_f oce, feet), 

SinZ  is  <sqrt< 1  -  <CosZ  *  CosZ)>), 

Area  is  <SinZ  *  Nee_Ht_foce  *  Nee_Ud_face), 

ft~ea2  is  <SinZ  *  Mee_Ht_face  *  CosZ  *  Nee_Ht_face  *  2>, 

Tot-Rrea  l«  ft~ea  +  ft~«a2, 

NueJUnits  is  (Tot_flrea  /  Nee-Len), 

TotjCost  is  (NueJUhits  ♦  Cost), 
CKkL«alerial<haterial,NuejUnits,TotJCost>, fai  I . 
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rcw_eaterials_needed 
noreal_Z(Face,-1), 
par  t_of  (Ex  tens,  Face), 
is_a(Exterts,  fraee), 

property(Extens,eaterial_type,Material  >, 

eaterial (Material  ,eood,Ht,Htuni  ts,Ud,U(*jni  ts,£*>,tfcuni  is,-,  Cost), 

longesLjdieension(Ht,Htuni  ts,Ud,Vk*jni  ts,Dp,Opuni  ts,Len,Lenuni  ts), 

conuert(Len,Lenuni  ts,Nee_Len,  feet), 

is_a(Roof,roof  >, 

par t_of (Foce2, Roof ), 

is_a(Face2, face), 

part_of <Extens2, Faee2 ), 

is_a(Extens2, fraee), 

norealJZ(Face2,CosZ), 

not(d i eens i on(Extens2, he i ght, _) >, 

dieension(Faee2,beight,Ht_face,Ht_face_uni ts), 

conwert(Ht_face,Ht_foce_juni  ts,Nee-Ht_face,  feet), 
d  i  eerts  i  on(Face2,  a  i  dth,  Ud— face,  Ud_face-un  i  ts  ), 
convert(Ud_face,Ud_facejunits,Nee_Md_face,  feet), 

SinZ  is  (sqrt( I  -  (CosZ  *  Cos2))), 

Area  is  (SinZ  *  Nee_Ht_face  *  Nee-Md-face), 
firea2  is  (SinZ  *  Nee_Ht_face  *  CosZ  *  Nes_Ud_faee  >, 

Tot_flrea  is  ftnea  ♦  Rrea2, 

MueJUni ts  is  (Tot-frea  /  Nee_Len), 

Tot-Cost  is  (MueJUnl ts  *  Cost), 

add-eater  ial  (Material  ,NueJLfc^i  ts, Tot-Cost), fa i  I . 

/*  fraee  eater ial  of  type  "filler"  */ 
rae_eaterials_needed 
i s_a(Extens, fraee ), 

property(Extens,eaterial_type,Material ), 
f i 1 1 er (Mater i a I , _, Uo I , Uo I un i ts, _, _, Cost ), 
get_jarea(Extens,firea,Uni  ts), 
corwert(Uol  ,Uoluni  ts,Nee_Uol  ,t*ii  ts), 

Nee-Uol2  is  ((NeeJUol  *  MeeuUol  *  Nee-Uol )/(Uol  *  Mol >), 

dieension(Extens,depth,Qp,Dpuni  ts), 
conyert(Dp,Dpmi  ts,Mte_Dp,ttil  ts  ), 

NueJUhi ts  is  (firea  *  Nee -Dp  /  Nee-Uol2), 

Tot-Cost  is  (MueJJnits  ♦  Cost), 

adcLjeater ial (Material , NueJUhi ts,Tot_Cost >, fai I . 
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roajMterials-needed 
i s_a(Extens, sub-cover ), 
dl mens i  on(Extens, depth, Th, Thun i ts ), 
property(Extens,aaterial_type, Material  ), 

material  (Material  ,_,Ht,Htuni  ts,Hd,Wduni  ts,Dp,Opuni  ts,  Cost) 

eatch(Ht,Htuni  ts,Ud,Uduni  ts,Dp,Dpuni  ts,Th,Thuru  ts,Act_Ht,Uni  tst, 
Rct_Wd,Uhi  ts2), 
get_area(Extens,f¥'ea,Uhi  ts), 
convert(Act_Ht,Uni  ts1,Act_Ht2,Uhi  ts), 
eonvert(Act_Ud,Uni  ts2,Act_Ud2,Uhi  ts), 

NuaJJni  ts  is  (Area  /  <Rct_Ht2  ♦  Act-Hd2», 

Tot  Past  is  (NunJLJhits  *  Cost), 

adcLaaterial  (Material  ,MuaJUni  ts,TotJCost),  fai  I . 

raeueaterials-needed 
is_o<Ex tens, sub-cover ), 
not(d ieension(Extens, depth, Th, Thun its)), 
proper ty(Extens,eaterial_type,Material ), 

eater ial(Material,_,Ht,Htunl ts,Ud,Udunl ts,Dp,Dpunl ts, Cost) 
ge  t_jarea<Ex  tens.  Area,  Uhi  ts), 
convert(Ht,Htuni  ts,Mee_Ht,Uni  ts), 
convert(Ud,Uduni  ts,Nee_Ud,Uni  ts), 

NueJDnits  is  (Area  /  (He*_M  *  Mee_Md)), 

TotJCost  is  (NueJUhits  *  Cost), 

odd_aa ter ial (Materia I, MueJUni ts, TotJCost), fai I . 

raa_aaterials_needed 
i s— alExiens, sub-cauer ), 
proper ty(Extens, eater i a I -type, Pa i nt ), 

I  iquid(Paint,_,Ar*a_Cov, AreaJUni ts,_, _,Co*t ), 
get_area(Extens,  Area,  Uh  i  ts  ), 
convert(AreaJDov,Area_L)hi  ts,Nea_f¥*ea,Uhi  ts), 

Nea_Area2  is  ((Mea-ffr'ea  *  Mee_Area>  f  AreaJCov), 

NueJUnits  is  (frea  /  H— _Rrea2), 

TotJCost  is  (MuaJUhits  *  Cost), 
adcLaaterial  (Paint,NuaJUnits, Tot-Cost),  fai  I . 

rae_eater ials_needed 
is_xi(  Ex  tens,  cover), 
d  iaens  i  on(Ex  tens,  depth,  Th,  Thun  i  ts ), 
property(Extens,aaterial_type,Materiaf ), 

eater ial (Material ,_,Ht,Htuni ts,lid,Uduni ts,0p,0puni ts,_,_,  _,_,Cost) 
eatch(Ht,Htuni  ts,Md,Uduni  ts,Dp,Dptni  ts,Th,Thunits,Act_Ht,Unlts1, 
Act_Ud,Uhi  ts2), 
get_jarea(Extens,f^ea,Uni  ts), 
conwert(Aet_Ht,  inches, Aet-Ht2, Uni  ts), 
convert(Act_Wd,  Inches, Ac t_Ud2, Uhi  ts), 

MuaJUnits  is  (Area  /  <Act_Ht2  *  Act_Ud2)>, 

TotJCost  is  (MuaJUhits  *  Cost), 

add_aater  ial  (Material  ,NuaJUni  ts,TotJCost),  fai  I . 


raw_eaterials_needed 
i s ^a(Ex tens, cower ), 

no t<dieens ion (Ex tens, depth, Th,Thunits>>, 
proper ty(£x tens, ea ter ial _type,tta ter ia I  >, 

eater  i  a  I  (hater  i  a  I ,  _,  Ht,  Htun  i  ts,  Wd,  Udun  i  ts,  Dp,  Opun  i  ts,  _,  _,  _,  _,  Cost  >, 
ge  t_area<Ex  tens,  Area,  Uh  i  ts  ), 
conwert<Ht,Htuni  ts,New_Ht,Uni  ts), 
conwert(Ud,Uduni  ts,NewJJd,Uhi  ts), 

NueJUni ts  is  tfrea  /  <New_Ht  *  Nee_Wd)), 

Tot-jCost  is  (NuejUhits  *  Cost), 

add-water ial (Mater ial, NueJUhits, TotJCost), fai  I . 

rae_»ater i a I s_needed 
i s.ja(Ex  tens,  cower ), 
proper ty(Extens, eater i a  I -type, Pa i nt ), 

I  iquid(Paint,_,Area_£ow,AreaJLJhi  ts,_,_,Cost ), 
get_area(Extens,  Area,  Units), 
conwerUArea-Cow,  flreaJUni  ts,New_ftrea,Uni  ts  ), 

New_f*ea2  is  ((New_Area  *  Nee-Area)  /  Area-Cow), 

NueJUhits  is  <ftr'ea  /  New J¥ea2 ), 

Tot-Cost  is  (NueJUni  ts  *  Cost), 
add-eater ial (Paint, NueJUni ts, Tot-Cost), foi I . 

add_aatsrial(Material,NueJUnits,Tot-Cost) 
retract(eaterial-l  ist(Matcrial,Old-Ni*LJUhits,OldJCost», 

New_NueJUni ts  is  (Old-NueJUhits  +  NueJLhits), 

New-Cost  is  <Old_Cost  ♦  TotJCost), 

assertz(eaterial_l ist(Naterial ,New_NueJUhi ts,New_Cost)), i . 

odd-water ia I (Material ,  NueJUni ts, TotJCost) 
assertz(eaterial_l  ist(Material,NueJUhi  ts, TotJCost)), ! . 

. . . ■»»* . ►*•*> 

/*  eoteriol  data  */ 

eaterial(shingie12, shingle, 12, inches, 6, inches, 0.29, inches, 0, feet, 0, feet, 1.29). 

eater i a I <  tar_paper2, tar_paper , 72, i nches, 240, i ncbes, 0 . 29, inches, 0, feet, 0, 
feet, 125.00). 

eater ial (tar_paperl,  ttr'-paper ,  72,  inches, 240,  inches, 0.25,  i nches, 0,  feet, 0, 
feet, 190.00). 

eater ial (tar _paper3, tar_paper,72, inches, 240, Inches, 0.29, inches, 0,feet,0, 
feet, 110.00). 

eaterial(sheath-paper24,sheath-paper, 12, feet, 100, feet, 0. 1, inches, 

0, feet,0, feet, 79. 09). 

eater i a Kwood8, wood, 144, inches, 4, inches, 2, inches,0, feet,0, feet, 8. 29). 
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eateriaKhcrd_eood9,hard_eood,4,  inches, 24,  f«t,0.5,  inches, 

0,  feet,0,  feet,  12.00). 

eaterial(hardboard32,hardboard,36,  feet,  10,  feet,  1,  inches, 0,  feet,0,  feet,  136.55) 
eateriaKhardboard?8,hardboard,36,  feet, 24,  feet,  1,  inches, 0,  feet, 0,  feet, 280. 00) 
eaterlal<hcrdboaril34,hartjboard,24,feet,  10,  feet,  1,  Inches, 0,  feet,0,  feet, 95. 35). 

f*  use  brlcK  10x4x6  effective  size  */ 

eater i a Kbrick88, brick, 10, inches, 4, inches, 6, inches, 

0, feet,0, feet, 1. 15). 

I iquid<paint9, paint, 900, feet, 1,gal Ion, 8. 00). 

I iquid(paint21, paint, 700, feet, 1, gal  ton, 13.55). 

1 I quidtpa inti?, paint, 1100, feet, 1,gal Ion, 8. 23). 

f*  10  lb  per  2  cubic  feet  */ 

fi 1 1 erCconcre tel, concrete, 2, feet, 10, lb, 5. 00). 

eater ial (door1,_,_,_,_,_,_,_,0, feet,0, feet, 16.00). 

eater  ial  (a  indoe  1,_,_,_,_,_,_,_,0,  feet,  0,  feet,  30. 50). 
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r*  House  1  File  */ 


f*  house  data  */ 
i s_a< house 1, house). 
property(houset,subtype,single_rooe>. 
con ta i ns < house!, Iroof 1, exterior!, rooetl). 


/*  exterior  data  */ 
i  s_xi<  ex  ter  i  or  1 ,  ex  ter  i  or  > . 

eontains(exter ior 1, (face5, faceG, face?, foce8]>. 
par t_of (ex ter i or  1 , house  1 ) . 


/*  roof  data  */ 

is_a(roof 1,roof ). 

contains (roof  1, [facet  1, face 12) ). 
part_jof  <roof  1 ,  house  1 ) . 


is-xKfocell,  face). 

dieension<face11, height,  151.5,  inches). 
dimnsion<face1t,eidth,384,  inches). 
dieension<face1t,depth,6.3,  inches). 

containstfacetl,  [fraee1,subucouer2,sub_couer1,couerD). 

nareal  face  11,0). 

norea I _V < f ace 1 1 , 0 . 34 ) . 

noreal_2(facett,0.Q4>. 

part_of<  facet  I, roof  1). 
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I  s_a<  frame  1 ,  fraee  > . 

proper  ty<  fraee  1 ,  ea  ter  i  a  I  -type ,  eood8 ) . 


d  i  *ens  i  on  <  fraee  1, height,  139.5,  inches?, 
d i eens ion< fraee 1,*idth, 382,  inches). 
dieension<fraee1,depth,4,  inches). 

face< fraee 1 , face 1 1 ) . 

part_of<fraee1,foce11>. 

/♦ - */ 

i  s_ja<subucover2,  sub-cover  ) . 
property<sub.cover2, eater i a I -type, eood8 > . 
di  sens  ion<sub_cover2,  depth,  2, inches). 
part_of  <sub_eover2,  focell). 

/* - */ 

ls_a<sub_cower1,sub^cover). 

property<sub_jcover1,eaterial_type,  tar_paper2  ) . 
d I  eens  i on<sub_cover 1 , depth, 0 . 25, inches), 
par  sub-cover  1,  facell). 

r* - */ 

i s_a<cover 1 , cover ) . 

proper ty (cover 1 , eater i a I  -type, sh i ng I e 12 ) . 
proper ty<cover  1 , f i n i sh-co I or , broen ) . 

d i eens ionlcoverl, depth, 0.25,  inches). 

par t_of (cover  1 , face  1 1 ) . 
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is_ja<foce12,  face). 

d i sens iontface  12, height,  151.5,  inches). 
dieansian(face12,eidth,384,  inches). 
dieension<face12,depth,6.5,  indies). 

conta i ns< face  12, 1 fraee2, sub-cover  13, sub^couer  14, cover  12 )) . 

noreal_X< face 12,0). 

norea I _V< face 12, -0 . 34 ) . 

noreol-Z< face 12, 0.04). 

par t_of< face 12, roof 1 > . 

t* - */ 

i  sua<  fraee2,  fraee  ) . 

proper ty< fraee2, eater i a I -type, eood8 ) . 

dieension<fraee2,hei<Jit, 139.5, inches). 
dieension(fraw2,eidth,382,  inches), 
d i Bens ion<fraee2, depth, 4,  inches). 

facet fraee2, face  12 ) . 

par t_of < f raee2, f ace 12 ) . 

f* - ♦/ 

i  s_a<sUbucover  13,  subucoaer  ) . 
proper tytsub-cooer 13, eater i a I -type, eoodB ) . 
dieension<subucooer13,depth,2,  inches). 
pcrt_of<sd)ucover13,  face  12). 

/* - */ 

is-40<sUb-cooer  14,  subucouer). 
proper  tytsubucooer  14,  eater  i  a  I -type,  tar_paper2  ) . 
d  I  Bens  iontsubucover  14,  depth,  0.25,  inches). 
part_jof<sdxxover14,  foce  12). 
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i  s_a(cower 12, cower > . 


prcperty(cower 12, eater i a l_type, shingle 12). 
property<cower 12, f i n i sh_co I or, broen ) . 

d i pens ion< cower 12, depth, 0.25, inches). 

par  t_jof  (cower  12,  face  12). 


f*  rooel  */ 


is_ja(rooe1,rooe) 

coord inates_X(product,rooe  1,0,  inches). 
coordlnates_Y<product, rooel, 0,  inches), 
coord inates_Z<product, rooel, 12, inches). 
contains(rooei,  I  face  1,  face2,  face3,  foce4,  face9,  face  10)). 
par t_of (rooel, house  1 ). 


/*  facel  */ 
i  sua(  face  1 ,  face  ) . 

d i mens ian( facel, height,  1 15,  inches). 
dieension<face1,eldth,302,  inches), 
d i pens ion( facel, depth,  1,  inches). 

contains<face1,  Isubucower3,couer2) ). 

norea l_X< f ace 1 , 0 ) . 

norea I  _V< face  1 , - 1 ) . 

normal _Z< face 1,0). 

par t_of < face 1 , room  1 ) . 

f* - ♦/ 


i  s-a(suh.jcower3,  suh-cower  ) . 
proper ty<sUb_cower3, eater i a I -type , hardboard32 ) . 
dieension<sub-cower3, depth, 1, inches), 
par t_of<sub_cower3, facel ). 
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- */ 


i s_o<cover2, cover ) . 

proper  ty(cover2,  eater  i  a  I  -ttjpe,  pa i n  t9 ) . 
property<cover2,finistucolor,yel  loe). 

part_of(couer2, focel). 


/*  face2  */ 
i s_a<  face2, face  > . 

dieensian(face2,height,  115,  inches), 
d i sens ion(face2,eidth, 240,  inches). 
dieension<face2, depth, 1, inches). 

contains<face2, (subuCouer4,cover3) ). 
norea I _X< face2, - 1 ) . 
noreal_V<face2,0>. 
normal  _2<foce2,0>. 
part_jof(face2,rocel ) 


i  s.ja  (  si±LjCover4 ,  subucover  ) . 
property<Bub_cauer4,eaterial_type,hardboard34). 
dieension<sUb_cower4,  depth,  1,  inches). 
part_jof<sub^cover4,  fac*2). 


is_a<couer3,cover). 

proper ty(cover3, eater i a I  -type, pa i ntQ ) . 
property<cover3,  f  inishucolor,yel  loe). 

part_of<cover3, face2). 
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f*  foce3  */ 


is.ij<foce3, face). 

dieension(face3, height, 113, inches). 
dimension(face3,e idth,362,  inches), 
d i mens ion<face3, depth, 1, inches). 

eontains<  face3,  tsub_couer5,cwer4}). 
norma I _X< face3, 0 > . 
normal_Y(face3, 1). 
norma I _Z< face3, 0) . 
part_of(face3,room1>. 

/* - */ 

i s_a(subucouer3, sub-cover ) . 
proper ty(sub_cooer5, eater i a I -type, hardboard32 ) . 
di mens ion<sub_cover5, depth, 1, inches), 
par t_jof  (sub _jcover5,  f ace3  ) . 


i s_a<cover4, couer ) . 

proper ty<cover4, eater i a i -type, pa I nt9 ) . 
proper ty <couer4, f inish_jcolor,yel loe). 

part-jof  <cooen4,  face3). 


/*  face4  */ 
is_a(face4, face). 

d i mans ion(foce4, height, 1 15, inches), 
d i mens ion(foce4,eidth, 240, inches). 
dieension(face4, depth,  1,  inches). 

contains(face4, (sub^couer6,couer51 ). 

noreal_X(face4, 1). 

norma I _V< face4 , 0 ) . 

normal _Z(faee4,0). 

par t_of < face* , room 1 > . 
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- V 

i  s-a<subucover6 ,  sub-cover  ) . 

property<sub-cover6,eaterial_type,hardboard34). 
dieension<sub_cover6, depth, 1, inches). 
part_jof  <sub_cover6,  face4). 

/* - */ 

i s_a< covers, cover  > . 

proper  tytcoverS,  eater  i  a  I -type,  pa  i  nt9  ) . 
propartytcovarS, f  inish_color,yel  I  cm). 

par t_of (cover 5, face4). 

/I****************************************/ 

/*  face5  */ 

/*  use  brick  10x4x6  effective  size  */ 
is_ja<  faces,  face). 

d i eensiont faceS, he i^t,  120,  inches), 
d i Mens i ant face5,eidth, 382, inches). 
dieension< faces, depth, 6,  inches). 

containst faceS,  Ifraee3,si4»ucouer?,couer6}>. 

rvoreal  _X<  faceS,  0  ) . 

norm  I  _V<  faces,  1). 

noreal_Z<face5,0). 

par  t-jof  <  faceS,  exter  i  or  1  > . 

f* - */ 

i s_a< fraee3, fraee ) . 

proper ty< fraee3, eater i a I -type, eood6 ) . 

dieension(fraee3,depth,4, inches). 

facet  fraee3,  faces). 
face(fraee3, facel). 

part_of ( fraeeS, faceS ) . 
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/*- - */ 

i s_a < sub-cover? , sub-cover > . 

proper ty<sU)_cover?, m ter i a I -type, shea th_paper24 > . 
par t_of< sub-cover? ,  face©). 

/* - */ 

is_a< cover©, cover). 

proper ty<cover©, eater i a I -type, br i ck88 ) . 
proper ty(cover©, f i n i sh_co I  or , red ) . 

d i eens i on ( cover© , depth, 6, inches). 

part_jof<cover©,  face©). 


/*  face©  */ 
i s_q( foc©6, face) 

d i sens ionfface©, height, 120, inches), 
d I eens I on< face©, eldth, 230, inches), 
d  i  mens  ion(  face©,  depth,  6,  inches). 

containsCfacefi, 1frame4,siijLJCOwer8,cover7,eindoe1 ) ). 

normal_X<foce©,  1). 

normal_V(face6,0). 

norma I _2< face©, 0 ) . 

par t_of < face©, e* ter i or  1 ) . 

I* - */ 

is_ja<frame4, frame). 

proper tyC frame4 , mater i a I -type , moodB ) . 

di eens ion<frame4, depth, 4, inches). 

face<  frame4, face©). 
face<  fra— 4,  face2  > . 

par t_o f < f rame4 , f ace© > . 
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/* - */ 

is_a<sub_cover8,sub_cjver). 

property(subucover8,Mterial-type,sheath_paper24). 
par  t_o  f  <  sii>_cover8 ,  f  oce6  > . 

is_a(cover7,cover). 

proper ty<cover7, eater i a I -type, br i ck88 ) . 
proper ty < cover 7 , f i n i sh_£0 I or , red ) . 

dieension(cover?,depth,6, inches). 

par t_of< cover?,  fctce6). 

f* - ♦/ 

i s_a(s i ndoe 1 , e i ndoe ) . 

d ieensionCe indoe  1, height, 36, inches), 
d  i  sens  i  on(ei  ndoe  1,eidth,  48,  inches). 
dieensionCeindoel, depth, 0.5,  inches) 

containsCeindoel,  (pane I, si  1 1 1, case  11). 

foceCelndoel,  face2). 

f  ace  (  e  i  ndoe  1 ,  f  oce6  ) . 

coord  irtates_X<  I  oca  I,  eindoel,  96,  inches). 

coord inates_V< local  ,e indoe  1,0,  inches). 

coord  i  nates_Z<  I  oca  i  .eindoel, 66,  inches). 

par  t_of<e  indoe  t,  facefi). 


isua<pane1,pane). 
property<pcrw1,qual  i  ty,4). 
par  t-jof  (panel, eindoel ). 


is_a(si 1 1 1, si  II). 

prapertyCsi  1 1 1, finish-type, paint  17). 
proper ty<s 1 1 1 1,  f  inlsh_color,ehi  te>. 

part-of(si 1 1 1, eindoel ). 
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isua(cas«1,case). 


port— of  (easel,  e  indoe  1 ). 


f*  face?  */ 
is^aCface?, face). 

d  i  pens  ior>(  face?,  height,  120,  inch®*). 
dleenslon(face?,eldth,382,  Inches). 
dieensionC face?, depth, 6, inches). 

con (a i ns< face?, I fraee5, sub-jcooerQ, cover  8, door  11). 

rtorea I _X< face?, 0 ) . 

noreal _V( face?,- 1 ) 

norea I _2< face?, 0 ) . 

part_jof  <  face?,  ex  ter  i  or  1 ) . 

/* - */ 

is-jg(fmee5,  frame) . 

proper  ty<  fraee5,  eater  i  a  I  -type,  eood8  ) . 

d i eons ionffroeeS, depth, 4,  inches). 

face<fraee5, face7 ) . 
foce<fraee5, face3). 

part_of<fraee3, face?). 

/* - */ 

i s_a<sub-couer9, sub-cover ) . 

proper ty<sub_£over9, eater i a I -type, shea th_paper 24 ) . 
part_of<sub_cover9, face?). 
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i  Sjo<cover8, cover ) . 


property(cover8, water ial_type,brick88). 
proper ty<cover8, f ini sh_co I or, red ) . 

dieeas  ion  (center  8, depth, 6,  inches). 

per  t_of <cover8, foce? ) . 

/* - « 

is_ja<door1,door). 

proper  ty(door1,wa  ter  ial_type,w»d5). 
propertyCdoorl,  f  Inish_type,paint21 ). 
proper ty<door I , f i n i sh_co I or , broen ) . 
proper  ty<door  1 ,  knob-  type,  round32  ) . 
proper tyCdoor 1 , h i nge_type, square3 i n ) . 

dieensiontdoor 1, height, 84, inches). 
dieension(door1,eidth,36, inches). 
dieension<door1,depth,2.5, inches). 

f ace(door 1 , f oce3 ) . 
foce(door1,foce?). 

caordinotes_X<loccil,door1,  125,  inches), 
coord inates_Y<  local , door  1,0,  Inches). 
coordinates_Z<loc»l,doort,42,  inches), 
per  t-jof  (door  1 ,  face?  ) . 


**** 


/*  f«ce8  */ 
is_a<face8, face). 

dieensi«xi(foce8, height, 120, inches). 
dieension<foce8,eidth,250, inches), 
d ieension<foce8, depth, 0, inches). 

contains(face8, IfraeeO,sub_jcoverlO,cover9J). 

noreal_X<face8,-t ). 

norea I _Y< f ace6, 0) . 

noreo I _Z< faced, 0 > . 

pcrt_jof<feice8,exterior1>. 
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/* - 


♦/ 

l  s_a<  fromeO,  frame  > . 

property<frome6, material-type, mood8). 

d I mens ion< frame©, depth, 4,  inches). 

facet  frame©, face 8). 
facet  frame©,  fac®4  ) 

par t_oft frame 6,foce8>. 

/* - */ 

i  s_at sub-cover  10 ,  sub-cover  ) . 

proper  tytsub-jcouer  10,  eater  iai  -type,  shea  th_paper24  ). 
partjoftsubjcower  10,  face8). 

/* - */ 

i s_a<eover9, cover ) . 

proper tytcoverQ, eater i a I -type, br i ck88 ) . 
proper  tytcover9,flnlsh_jcolor, red). 

parLjof<cover9, face8). 


/*  face9  */ 

is_atface9, face). 

diBensiontfaceO, height, 20, feet), 
d i eens i on< f aceQ, ■ i dth, 30, f eet ) . 
d i sens ion(face9, depth, 1, inches). 

contains<face9, Iframe7,subjcoverl1,cover10)>. 

noreai_XtfaceQ,0). 

norma I  _V< f ace9, 0 > . 

norma I _Z< faceQ, - 1 ) . 

par t_of < foce9, room  1 ) . 
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is-xK  froee?,  from). 

proper ty< fraee7,eater i a I -type, «ood8 > . 
facet frcme7, foce9). 
parLjof  <  fra**?,  face9  ) . 

/* - 

is^(subucover11,sub_cover). 
proper ty(sub_cover 1 1,eaterial_type,hardboard?8). 
dimension (sub-cover  11, depth,  1,  inches). 
pcrt_of(sub_cover11,foce9>. 

/* - 

i s-xKcover 10, cover ) . 

property (cover 10, ea ter i a l_type, paint  17). 
propertyfcoverlO,  f  inish_color,ehi  te). 

par t_of (cover 10, faced ) . 


/*  fa celO  */ 
is_a<  face  10,  face). 

dieensian(face10,height,382,  inches). 
dieension(face10,eidth,2ft2,  inches). 
dieension<face10,depth,  12.5,  inches). 

canto  ins<  face  10,  (fraeeO,  sub-cover  12,  cover  1 1 1). 

norea I _X< f ace 10, 0 ) . 

noreal_V(facel0,0). 

norea I  _2< face 10, 1 ) . 

par t-of < face 10, rooe 1 ) . 
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f* — 


— */ 


I  s_a<  fraee8,  frame  > . 

proper ty< fra«e8, •ater i a I -type, concrete  1 ) . 
dieension<fraee8, depth, 12, inches). 
face(fraee8, facelO). 
part_of  <  fraeeS, face 10 ) . 

I  s-jaCsub-cooer  12,  sub-jcover  > . 

proper  ty  <  sub-cover  12, eater i a I -type, hardjeoodQ  > . 

dieens ion (sub-cover 12, height, 20, feet). 
dieension(sub_couer12,eidth,30, feet). 
dieensiontstAucoier  12, depth, 0.5,  inches). 

par  t_jof  (sub-cover  12,  face  10  ) . 

/* - */ 

I s_a(cover 1 1 , cover ) . 

proper ty(cover 1 1 , eater i a I -type, pa i nt2 1 > . 
proper ty (cover 1 1 , f i n i sh_co I or , broen ) . 

di tens ion(cover 11, height, 20, feet). 
dieension(cover11,eidth,30, feet). 

par t_of (cover 1 1 , face 10 ) . 
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/*  SdMM  File  */ 

per  tjof  (house,  floorplan). 
par  tuof  (house,  exterior). 
parUjof(house,rooe). 
part-of (house , roof ) . 
part-of (house,  space). 

part_jof(roof,  face). 

pcrt_x>f(rooe,  face). 

part_of (space, face ) . 

par t_of (exterior, face). 

par  t_x>f  (  face,  door  > . 
par t_of ( face, • i ndoe ) . 
par  t_jOf(  face,  opening), 
par t_of< face, covering), 
par  tjof  (  f  ace,  subucouer  i  ng  > . 
par t_of ( face, fraee ) . 
par t_of ( face, insulation), 
par  t_of  (  face,  connect  i  on  ) . 

par t_of (connect i on, p I ueb i ng ) . 
par  tjof  (connect  i  on,  a  I  ectr  i  c  ) . 
partial (connect i on, heat i ng ) . 
par  t_x>f  (connect  ion,  gas). 

part_of(e indoe, si  1 1 ). 
part-of (e i ndoe, case ) . 
par t_of(e indoe, pane). 

trans_partof(X,V)  part-x>f(X,V), ! . 
trans_partof(X,V>  part^of(X,Z>, 

trans_partof(Z,V), ! . 
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/*  Conversion  File  */ 


converts(fl,feet,B, feet)  B  =  ft. 
conoertsffl, inches,  B, inches)  B  =  fl. 
convertsCA, feet, B, inches)  B  =  ft  *  12. 
conuartsffl, inches, B, feat)  -  B  =  fl  /  12. 
convertstft, feet,B,ycrds>  B  =  ft  /  3. 
converts(A, yards, B, feet)  B  =  fl  *  3. 

conoert(A,Qieension1,B,0ieension2) 
conver ts<A, D i sens i on  1,B,Di sens ion2>, ! . 

convert(A,Oieension1,B,Dieension2) 
conuerts<ft,0iaension1,X,0iea nsionx), 
not  (equal  (Diaension1,Diaenslonx)>, 
convert(X, 0 i sens ionx,B,Di sens ion2). 
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/*  Routines  File  */ 


/*  find  longest  dieension  of  three  passed  in  */ 

longest-jdiMnsion<Ht,Htuni  ts,Ud,Uduni  ts,Dp,Dpuni  ts,Len,Htuni  ts) 
convert<Ud,Uduni  ts,Mee_Ud,Htuni  ts), 
conuert(Dp,Dpuni  Is, Nee-Dp, Htimi  ts), 

•ax i eue<Ht, Me«_Ud, hax ), 

•axiMJB(f1ax,He«_Dp,Len), ! . 

eaxieuM<R,B,R) 

R  >  B, !. 

■axiwji<R,B,B). 

f*  have  Match  if  eithin  .25  inches  */ 

•atch<R,RJJhits,B,BJJhi ts,C,C_JUhi  ts,0,DJUhi  ts,R,RJUhits,B,BJUhits) 
convert<R,R_JUhits,HeeLR,  inches), 
conuert<B,BJUhi  ts,Nee_B,  inches), 
conuert<C,CJUhits,NeeL£,  inches), 
conuert<D,DJUhits,NeM_0,  inches), 

<<Mee_D  -  MeejC)  <  0.25), 

«Nee_D  -  NeMJC)  >  -  0.25),!. 

aatch(R,RJUhi ts,B,BJJhi ts,C,CJUhi ts,0,0JUni ts,R,RJUni ts,C,CJUhi ts) 
convert<R,RJUhits,Nee_R,  inches), 
convert<B,BJUnits,Nee_B,  inches), 
conuert<C,CJUni  ts,He«JC,  inches), 
conuert(D,OUUhi  ts,Neei_D,  inches), 

<<Me«JD  -  Me*_B>  <  0.25), 

<CNm_D  -  Nee_B)  >  -  0.25),!. 

■atch<R,RJUhits,B,BJUhits,C,CJUnits,D,DJUnits,B,BJUhits,C,CJUhits) 
convert<R,R_JUhi  ts,Me«-R,  inches), 
conoert<B,BJJni  ts,Nea_B,  inches), 
convert(C,CJUnits,Ne«-C,  inches), 
conuert(0,0LUni  ts,Hee_D,  inches), 

<<Ne«_D  -  hee_R)  <  0.25), 

<<Nmm_D  -  Nee_R)  >  -  0.25),!. 

•atch(R,RJUhits,B,BJUhits,C,CJUhi  ts,D,DJUhits,R,RJUhits,B,BJUhits) 
nl,erite< 'Error!  Mo  aatch  found  dirlng  rae  Material  calculations. ' ), fai I . 

/*  routine  to  get  etehir  of  list  */ 

•MMberOC,  CX|L1>. 

•eeberCX,  IV|L1)  MMfeer«,L). 
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t*  routine  to  delete  eeeber  of  list  */ 

deletea,  N,  []>. 

delete<X, IX|LJ,L>  !. 

deleteCX,  IV |L I ,  IV | li  1  >  delete«,L,M>. 

equal(R,B)  B  =  fl. 


115 


APPENDIX  D 


I  ?-  start. 

check  for  house  house  1 
check  for  exterior  exterior  1 
check  far  roof  roof  1 
check  for  face  facet! 
check  for  fraee  fraeet 

grade  earks  oust  be  clearly  visible  on  alt  freeing 
members  for  inspection 

check  for  sub-cover  subucover2 

check  for  sub-cover  subucoverl 

sub-cover  sub-cover  1  eeets  requirements;  al loeed  substitutes  are: 

-  t  ar  _paper  1 

-  tar_paper3 
check  for  cover  cover 1 
check  for  face  face 12 
check  for  frame  frame2 

grade  marks  must  be  clearly  visible  on  ail  framing 
members  for  inspection 

check  for  sub-cover  sub_jcover  13 

check  for  sub-cover  sub-cover  14 

sub-cover  sub-cover  14  meets  requirements;  alloeed  substitutes  are 

-  tar .paper  1 

-  tar -paper 3 
check  for  cover  cover  12 
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U  „  H  ..  U  U  U  U  U  i  I  i 


check  for  roo*  roc*1 


grade  aarks  aust  be  clearly  visible  on  all  fraeing 
eeebers  for  inspection 

check  for  sifc-couer  sub_cover8 
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check  for  cover  cover? 


approved  Methods  eust  be  used  for  building  easonry  mils 
■hen  outside  air  teeperature  drops  be  I  cm  40  degrees  farenheit 

check  for  ■ indoe  aindoel 

check  for  pane  panel 

pane  panel  passed  quality  check 

check  far  sill  si  1 1 1 

check  for  case  easel 

check  for  face  face? 

check  for  fraee  fraee5 

grade  earks  eust  be  clearly  visible  on  all  freeing 
eeePers  for  inspection 

check  for  sub^cover  sti)_cover9 

check  for  cover  cover8 

approved  eethods  eust  be  used  for  building  easonry  mils 
■hen  outs ids  air  teeperature  drops  beloe  40  degrees  farenheit 

check  for  door  door 1 

door  door  1  passed  -  height 

door  door  I  passed  -  eidth 

door  door  1  passed  -  depth 

check  for  face  faced 

check  for  fraee  fraeefi 

grade  earks  eust  be  clearly  visible  on  all  freeing 
ecebers  for  inspection 

check  for  subucover  sub-cover  10 

check  for  cover  cover9 

approved  eethods  eust  be  used  for  building  easonry  mils 
•hen  outside  air  teeperature  drops  beloe  40  degrees  farenheit 
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11  !  11111 


for  face  face9 
for  fraee  fraee? 

rode  earks  eust  be  clearly  visible  on  all  freeing 

gabars  for  inspection 

for  sub -cover  sub-cover  1 1 

for  cover  cover  10 

for  face  facelO 

for  fraee  fraeed 

for  sub-jcover  sub-cover  12 

for  cover  cover  It 
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Production  Sequence  Report  for  house! 


-  house  style  is  single_room 
and  consists  of  troof  1, exterior  1,roomd 
*  * 


*  * 


co— ent 

* 

:  norea 1 

for  each  face  listed 

* 

FACE 

X 

V 

z 

faced 

0 

0.34 

0.94 

face  12 

0 

-0  34 

0.94 

facel 

0 

-1 

0 

face2 

- ! 

0 

0 

face3 

0 

1 

0 

face4 

1 

0 

0 

face5 

0 

1 

0 

face6 

1 

0 

0 

face? 

0 

-1 

0 

face8 

-1 

0 

0 

face9 

0 

0 

-1 

face  tO 

0 

0 

1 

♦ 


co— ent  :  erect  foundation  and  fra— 

* 


* 

* 


fra— 6 

asseable 

material 

fra— 4 

assemble 

— terial 

fra— 6 

assemble 

material 

fra— 3 

assemble 

—terial 

fra— 5 

assemble 

—terial 

fra— 7 

assemble 

—terial 

fra—  1 

assemble 

—terial 

fra— 2 

assemble 

—terial 

(20 


mmn 


assemble 

Material 

type: 

eood3 

-  attach  to: 

face  3 

face? 

-  location 

relative 

to 

face? 

X  coordinate 

125 

inches 

V  coordinate 

0 

inches 

Z  coordinate 

42 

inches 

assemble 

•  indoe  si  1 1  for: 

•indoel 

-  attach  to: 

face2 

face6 

-  location 

relative  to 

face6 

X  coordinate 

96 

inches 

V  coordinate 

0 

inches 

Z  coordinate 

66 

inches 

sub-xoverlO 

assemble 

material 

type 

sheath_paper  24 

sub-jcover9 

assemble 

material 

type 

sheath  pqper24 

suta_ccver8 

assemble 

material 

type 

shea th_paper 24 

sub-cover? 

assemble 

material 

type 

sheath-paper 24 

coverb 

assemble 

material 

type 

brick 88 

cover? 

assemble 

material 

type 

brick88 

covers 

assemble 

material 

type 

brick 88 

cover9 

assemble 

material 

type 

brick88 
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sub_cooer 13 

asseable 

aaterial 

type. 

eood8 

sub_couer2 

ossaabla 

aaterial 

type: 

- -ift 

VOOOsS 

sub-xover 1 

asseable 

aaterial 

type: 

tar_paper2 

sub_cooer14 

asseable 

aaterial 

type: 

tar_paper2 

cower  12 

asseable 

aaterial 

type: 

shingle12 

cooar  t 

ossaabla 

aaterial 

type: 

shingle12 

* 

* 

- *  : 

put  up  faces 

for  each  rooa 

* 

* 

sub-jcouarl  1 

ossaabla 

aaterial 

type: 

hardboartfTS 

subucowerb 

asseable 

aaterial 

type: 

hardboard34 

sub_couar4 

asseable 

aaterial 

type: 

hardboard34 

sub-cooerS 

asseable 

aaterial 

type: 

hardboard32 

sub  jcooar3 

ossaabla 

aaterial 

type: 

hardboard32 

* 

* 

cnaae nt  : 

build  floor  as  last  step 

* 

* 

sub-jcooer  12 

ossaabla 

aaterial 

type: 

hcrdjaoodO 

a 

* 

com  ant  : 

put  a indoes 

n  place 

a 

♦ 

sindoal 

coapleta  using  panel 

easel 

• 

* 

coaaant 

:  put  finish  on  eindoas  and  doors 

• 

* 

sillt 

finish  paint17 

ohite 

door  1 

finish  palnt21 

broen 
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doorl 

assemble 

knob 

round32 

door  1 

asseeble 

hinge 

square3 

*  * 


co— ent 

* 

:  put  final  paint 

on  faces 

* 

cover  10 

paint 

nateriai 

type: 

paint  1? 

couer3 

paint 

eater ial 

type: 

paint9 

couerS 

paint 

eater ial 

type: 

pa into 

cover2 

paint 

eater ial 

type: 

paint9 

cover4 

paint 

ec ter ial 

type: 

pa into 

covert  1 

paint 

eaterial 

type: 

paint21 
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Bov  Materials  Report 


(tea 

Cost 

Uh i ts  Required 

doorl 

$16 

1 

•indool 

$30 

1 

concrete  1 

$173? 

347.514 

•ood8 

$3582 

434. 194 

tar_paper2 

$841 

6.73333 

hardboard32 

$211 

1.54776 

hardboard34 

$14? 

1.54722 

hardboard?8 

$200 

0.694444 

hard_«ood9 

$900 

75 

sheath_paper24 

$64 

0.85027? 

shingle12 

$2020 

1616 

bricK88 

$4224 

3673.2 

paint9 

$8 

1.0317 

paintl? 

$4 

0.551818 

paint21 

$12 

0.923095 

*  * 

Total  aaterial  cost  is  $13996 
*  * 


Start  Rae  Hater ials  Report  <•/  substitute) 


Rae  Materials  Report 


1  tee 

Cost 

Units  Requin 

door  1 

$16 

1 

eindoel 

$30 

1 

concretel 

$1737 

347.514 

tar-papert 

$504 

3.36666 

- 

VOOUD 

$3582 

434.194 

tar_paper2 

$420 

3.36666 

hardboard32 

$211 

1.54776 

hardboard34 

$147 

1.34722 

hardboard78 

$200 

0.694444 

hardjeood9 

$900 

75 

sheath_paper24 

$64 

0.850277 

shingle12 

$2020 

1616 

brick88 

$4224 

3673.2 

paint9 

$8 

1.0317 

paint  17 

$4 

0.551818 

paint21 

$12 

0.923095 

I  1 1 1 1 1  M  1*0  >  >1  1 1  I  I »  I  I  II  II  I 
*  * 

Total  Mterial  cost  is  $14079 
*  * 
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* 


sub_couer1:  substitute  tar_paper3  for  tar_paper2 
*  * 


Roe  Materials  Report 


I  tea 

Cost 

IJhits  Requin 

door  1 

$16 

1 

•indoel 

$30 

1 

concrete i 

$173? 

347.514 

tar_paper3 

$370 

3.36666 

- m 

VOOQO 

$3582 

434.194 

tar_paper2 

$420 

3.36666 

hardboard32 

$211 

1.54776 

naroDoaraje 

$147 

1.54722 

hardboard78 

$200 

0.694444 

hardueoodQ 

$900 

75 

sheath_paper24 

$64 

0.850277 

shinglel2 

$2020 

1616 

brick88 

$4224 

3673.2 

paint9 

$8 

1.0317 

paint  1? 

$4 

0.551818 

paint21 

$12 

0.923095 
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* 


* 

svb-cwer  14 .  substitute  tar_paper  1  for  tar_paper2 
*  * 


Raw  Mater ials  Report 


I  tee 

Cost 

Units  Required 

door  1 

$16 

1 

•indoel 

$30 

1 

concretel 

$1737 

347.314 

tar _paper 2 

$420 

3.36666 

■  in  .i  Jfl 

POOOD 

$3362 

434. 194 

tar-paper 1 

$504 

o . JDOOD 

hardboard32 

$211 

1.54776 

hardboard34 

$147 

1.54722 

hardboard78 

$200 

0.094444 

hard-jeood9 

$900 

73 

sheath_paper24 

$64 

0.830277 

shingle12 

$2020 

1616 

bricK88 

$4224 

3673.2 

paint9 

$8 

1.031? 

paint 1? 

$4 

0.331818 

paint21 

$12 

0.923095 

*  * 

Total  eater ial  cost  is  $14079 
*  * 
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* 


* 


sub-jcover  14 :  substitute  tar_paper3  for  tar_paper2 
*  * 

Roe  Mater ials  Report 

1  tee 

Cost 

Units  Required 

doorl 

$16 

1 

•indoal 

$30 

1 

concrete 1 

$1737 

347.514 

tar_paper2 

$420 

3.36666 

•ood8 

$3582 

434. 194 

tar_paper3 

$370 

3.36666 

hardboard32 

$211 

1.54776 

hardboard34 

$147 

1.54722 

hardboard78 

$200 

0.694444 

hardj*ood9 

$900 

79 

sheath_paper24 

$64 

0.890277 

shingle12 

$2020 

1616 

brick 88 

$4224 

3673.2 

paint9 

$8 

1.0317 

paint t? 

$4 

0.551818 

paint21 

$12 

0.923099 

* 

* 

Total  aaterial 

cost  is  $13949 
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